Microsoft Tech Community is in Read Only mode.  Please enjoy browsing our content while we complete our platform upgrade.

Forum Discussion

bernard_daniel_1950's avatar
bernard_daniel_1950
Iron Contributor
Oct 13, 2022

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!

  • HansVogelaar's avatar
    HansVogelaar
    Oct 16, 2022

    bernard_daniel_1950 

    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

     

  • bernard_daniel_1950 

    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_1950's avatar
        bernard_daniel_1950
        Iron Contributor
        Bonjour,
        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!!!

Resources