K
kalek93
Guest
Bonjour,
Sur ma Feuil1, j'ai un bouton qui lance une macro avec une InputBox.
Sur ma Feuil2, j'ai une multitude de date en colonne A.
J'aimerai que le chiffre saisie par l'utilisateur "se colle" en Feuil2, en colonne B, en face de la date d'aujourd'hui.
Voici mon code, cependant ca ne fonctionne pas, pourriez-vous m'aider svp?
Merci d'avance ;-)
Sur ma Feuil1, j'ai un bouton qui lance une macro avec une InputBox.
Sur ma Feuil2, j'ai une multitude de date en colonne A.
J'aimerai que le chiffre saisie par l'utilisateur "se colle" en Feuil2, en colonne B, en face de la date d'aujourd'hui.
Voici mon code, cependant ca ne fonctionne pas, pourriez-vous m'aider svp?
Code:
Sub recup_inputbox()
Dim reponse
reponse = InputBox("Montant?", , "Entrez le montant")
For i = 1 To 5000 Step 1
If Sheets("Feuil2").Range("A" & i) = Now Then
Sheets("Feuil2").Range("B" & i) = reponse
End If
Next i
End SubMerci d'avance ;-)