Forum Discussion

bernard_daniel_1950's avatar
bernard_daniel_1950
Iron Contributor
Oct 13, 2022
Solved

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 seul...
Macros and VBA
  • 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's avatar
bernard_daniel_1950
Iron Contributor
Dec 02, 2022

HansVogelaar 

Désolé, je n'ai pas été très clair!

En fait, il est primordial, pour le bon déroulement de ma macro, que la cellule active soit positionnée sur "espèces"... (car la macro utilise la valeur de la case à gauche.)

 

Resources