macro VBA excel nommer une cellule

bernard_daniel_1950 

Désolé, mais je ne comprends pas recupsauv du tout.

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 

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.

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 

Probablement pas, j'en ai peur

bernard_daniel_1950 

Le "listbox" sur Choixsauv est nommé ListBox1, pas listsauve

Sub recupsauv()
    Application.ScreenUpdating = False
    'If MsgBox("Ceci va récupérer une journée enregistrée.", vbOKCancel, "Récupération de journée") = vbCancel Then
    'Exit Sub
    'End If
    Application.Goto Reference:="grille2"
    Selection.Copy
    Application.Goto Reference:="date"
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Dim d As String
    If Choixsauv.ListBox1.ListIndex > -1 Then
        d = Format(Choixsauv.ListBox1, "dd/mm/yyyy")
    End If

    Application.Goto Reference:="sauvegarde"
    Do While ActiveCell <> d
        ActiveCell.Offset(1, 0).Activate
        If ActiveCell.Value = 99999 Then
            MsgBox "Cete date n'existe pas!", , "Echec"
            Application.ScreenUpdating = True
            Range("a1").Select
            Exit Sub
        End If
    Loop
    ActiveWorkbook.Names.Add Name:="debrec", RefersTo:=ActiveCell
    ActiveCell.Offset(1, 0).Select
    Do While ActiveCell.Value = ""
        ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Offset(-1, 6).Select
    Range(ActiveCell, Range("debrec")).Select
    Selection.Copy
    Range("date").Select
    ActiveSheet.Paste

    Application.CutCopyMode = False
    MsgBox "Journée du " & d & " récupérée! vous pouvez désormais transférer les données à Decalog."
End Sub

HansVogelaar 

Bonsoir,
j'ai un souci avec ce que vous m'avez envoyé, qui, pourtant, marchait très bien!
Voici le message:

Je joins le fichier. le problème se situe dans la macro recupsauv (surligné).

Merci encore!

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 

Ici un exemple très simple.

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 

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)

HansVogelaar 

Le flux commence par le bouton "options de sauvegarde", à droite...

bernard_daniel_1950 

Je voudrais voir le classeur...

bernard_daniel_1950 

Essayez

UserForm1.Listbox1

HansVogelaar 

J'ai un problème:

bernard_daniel_1950 

s = InputBox("entrez la date désirée, sous la forme 'jj/mm'.", " Recherche de journée sauvegardée", Me.Listbox1)

où ListBox1 est le nom de la zone de liste.

HansVogelaar 

Bonsoir, j'ai encore besoin de vos lumières!

J'ai créé cette userbox:

et cette macro (un extrait):

Sub recupsauv()

...
Dim s As Date
On Error Resume Next
s = InputBox("entrez la date désirée, sous la forme 'jj/mm'.", " Recherche de journée sauvegardée")
If Err Then
MsgBox "Vous devez rentrer une date!", vbExclamation
Exit Sub
End If
On Error GoTo 0
Application.Goto Reference:="sauvegarde"
Do While ActiveCell <> s
ActiveCell.Offset(1, 0).Activate

...

J'aurais voulu que, en choisissant une date donnée dans l'userform, elle soit sélectionnée dans l'input box, ou directement dans la macro...

J'espère être assez clair...

Merci!