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 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
May 26, 2024

HansVogelaar 

Bonsoir,

dans la macro suivante:

----------------------

Sub reporcartes()
'
' reporcartes Macro
'

'
Range("AG2").Select
ActiveCell.FormulaR1C1 = _
"='C:\Users\bernd\OneDrive\Desktop\Maison\[acredit m.xlsx]CB 36048 00010074603 # 062024'!R[2]C[-32]"
Selection.Copy
Range("AG4:AI91").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("AG2").Select
Application.CutCopyMode = False
End Sub

------------------

est il possible de donner à la valeur 06024 celle d'une cellule  de la feuille?

D'avance merci!

 

  • bernard_daniel_1950's avatar
    bernard_daniel_1950
    Iron Contributor
    Aug 29, 2024

    HansVogelaar 

    Bonsoir,

    Me revoilà…

    J’ai un souci avec l’instruction : options de sauvegarde.

    Elle ouvre une userform dans laquelle il y a une liste déroulante de dates.

    Quel que soit le choix, la date retenue est toujours la première dans la macro « recupsauv ».

    Où est l’erreur ?

    Je vous transmets le fichier (sosdecalogy).

    Merci d’avance pour votre aide !

    1. DANIEL

     

  • bernard_daniel_1950's avatar
    bernard_daniel_1950
    Iron Contributor
    May 26, 2024
    Une fois de plus: merci!
  • HansVogelaar's avatar
    HansVogelaar
    MVP
    May 26, 2024

    bernard_daniel_1950 

    Bien sûr, par exemple changez

     

    Range("AG2").Select
    ActiveCell.FormulaR1C1 = _
    "='C:\Users\bernd\OneDrive\Desktop\Maison\[acredit m.xlsx]CB 36048 00010074603 # 062024'!R[2]C[-32]"

     

    à

     

    Range("AG2").FormulaR1C1 = _
    "='C:\Users\bernd\OneDrive\Desktop\Maison\[acredit m.xlsx]CB 36048 00010074603 # " & Range("Z50").Value & "'!R[2]C[-32]"

     

    Z50 est la cellule contenant la valeur.

Resources