Repeter une action avec CommandButon
d
Bonsoir à tous,
Débutant dans le monde de la programmation, je viens vers vous car j'ai un soucis.
Je souhaite qu'à chaque appuie sur mon commandButton l'heure apparaisse dans une case excel.J'initialise B3 lors de mon premier appuie mais ce que je souhaite c'est si j'appuie une 2éme fois l'heure s'affiche en B4.En résumé chaque appuie sur CommandButton doit incrémenter la colonne B à partir de B3.
Merci d'avance pour votre aide.
If Sheets("feuil1").Range("B3") = "" Then
Sheets("feuil1").Range("B3") = Now()
End If
End Sub
c
peux etre comme cela
Private Sub CommandButton1_Click()
i = Range("B" & Rows.Count).End(xlUp).Row + 1
If Sheets("feuil1").Range("B" & i) = "" Then Sheets("feuil1").Range("B" & i) = Now()
End SubSalut DataS,
Tiens, Cisco!
Private Sub cmdHour_Click()
'
Range("B" & IIf(Range("B3") = "", 3, Range("B" & Rows.Count).End(xlUp).Row + 1)).Value = Format(Now, "HH:MM:SS")
'
End SubA+
d
Bonsoir encore merci pour votre aide, cela fonctionne.