VBA : Récupérer données InputBox

[kalek93]

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?

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 Sub

Merci d'avance ;-)

 

[Pierrot93]

Re : VBA : Récupérer données InputBox

Bonjour,

Attention "now" comporte également l'heure :

If Sheets("Feuil2").Range("A" & i) = Now Then

essaye peut être avec "date" :

If Sheets("Feuil2").Range("A" & i) = Date Then

bon après midi
@+

 

[kalek93]

Re : VBA : Récupérer données InputBox

Salut Pierrot,

Bien vu ;-)

Merci beaucoup !! 😉