Forum Discussion
bernard_daniel_1950
Oct 13, 2022Iron Contributor
macro VBA excel nommer une cellule
Dans une macro, je veux donner un nom à une cellule donnée, à savoir celle où je suis au lancement de la macro.
si je laisse "range", avec des références absolues, la macro fonctionne, mais une seule fois. Le nom choisi disparait de la liste de la feuille, mais est toujours présent dans les noms de "formule-gestionnaire de noms".
voici ce que j'ai écrit, qui ne fonctionne pas:
ActiveWorkbook.Names.Add Name:="horo4", RefersToR1C1:=ActiveCell.Address
Merci de m'aider!
Peut-être:
Dim s As String Dim reto As Range Set reto = Selection Do s = InputBox("Scannez le document, puis cliquez sur 'OK'; en fin de série, cliquez sur OK! ", " Enregistrement du retour ") If s = "" Then Exit Do Application.Goto Reference:="codbarretour" Do While ActiveCell > 0 ActiveCell.Offset(1, 0).Activate Loop reto.Select reto.Formula = s ActiveCell.Offset(0, 10).Activate Range(ActiveCell, Range("chrono")).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues ActiveCell.Offset(0, -12).Activate Loop
Essayez
ActiveWorkbook.Names.Add Name:="horo4", RefersTo:=ActiveCell
ou, plus compliqué:
ActiveWorkbook.Names.Add Name:="horo4", RefersToR1C1:="=" & Activecell.Address(ReferenceStyle:=xlR1C1, External:=True)
- bernard_daniel_1950Iron ContributorMerci beaucoup! la première formule marche très bien!
- bernard_daniel_1950Iron ContributorBonjour,
Je ne voudrais pas abuser... mais je souhaite désormais sélectionner une plage de cellules à partir de la position actuelle jusqu'à une cellule appelée "chrono".
En fait, je suis en train de remplacer mes vielles formules excel 4!!!
- bobmdirkaolcomCopper Contributorhow can i restore data on my excel worksheet that i mistakenly erased ?
This is not related to the subject of this discussion. Please start a new discussion and ask your question there.