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

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

MVP

Apr 24, 2024

bernard_daniel_1950

Problème 1 : vous déchargez le userform avant d'appeler RecupSauv, donc la valeur de la listbox n'existe plus. Solution:

Private Sub recupération_Click()
    Call recupsauv
    Unload Me
End Sub

Problème 2 : afficher correctement la date. Solution:

    Dim d As String
    If Choixsauv.Listsauve.ListIndex > -1 Then
        d = Format(Choixsauv.Listsauve, "dd/mm/yyyy")
    End If
    s = InputBox("entrez la date désirée, sous la forme 'jj/mm'.", _
            "Recherche de journée sauvegardée", d)

bernard_daniel_1950

Iron Contributor

Apr 25, 2024

Encore merci...
J'ai plusieurs userforms où l'ordre "unload" précède le "call", sans problème?
J'ai shunté la phase "inputbox... " pour entrer directement d dans la macro!

Forum Discussion

macro VBA excel nommer une cellule

Resources