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

     

HansVogelaar's avatar
HansVogelaar
MVP
Apr 27, 2024

bernard_daniel_1950 

C'est normal. Pour éviter cela, ne liez pas les zones de texte aux cellules, mais utilisez VBA pour transférer les valeurs entre les zones de texte et les cellules.

bernard_daniel_1950's avatar
bernard_daniel_1950
Iron Contributor
Apr 27, 2024
Euh... Pourriez vous être plus explicite?
Un exemple?
  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Apr 28, 2024

    bernard_daniel_1950 

    Quand une zone de texte est liée à une cellule, la valeur de la cellule est identique à la valeur de la zone de texte. Ainsi, la cellule contient une valeur, pas une formule...

     

  • bernard_daniel_1950's avatar
    bernard_daniel_1950
    Iron Contributor
    Apr 28, 2024
    Oui, merci, ça marche!
    Mais pourquoi ne peut on pas utiliser l'autre méthode (cellules liées)?
    Juste pour mon info personnelle!

Resources