Problème d'incrémentation date et heure.

[Hulk]

Hello tout le monde,

Je n'arrive pas à incrémenter une date et heure.

Pas évident à expliquer..

Je souhaite, qu'il affiche la date et l'heure dans la dernière cellule vide d'une colonne à chaque click sur un bouton, mais il met la même date et heure sur toutes les cellules (pleines) de cette colonne ?

Le mieux est de voir le fichier joint.

Merci pour l'aide apportée !

 

[ROGER2327]

Re : Problème d'incrémentation date et heure.

bonjour Hulk

Peut-être ceci ?

[B][COLOR="DarkSlateGray"]Private Sub CommandButton2_Click()
    Cells([B65536].End(xlUp).Row + 1, 2) = Now
End Sub[/COLOR][/B]

ROGER2327
#3489

28 Floréal An CCXVIII
2010-W20-1T14:26:35Z

 

[GBI]

Re : Problème d'incrémentation date et heure.

edit: Bonjour Hulk 🙂
Est-ce que cela répond à ton besoin?
Tu notera qu'il convient d'oublier le deuxieme code
Cdt

 

[Hulk]

Re : Problème d'incrémentation date et heure.

Hello,

Mais que j'suis c..

Comme ça

Private Sub CommandButton2_Click()
    
    derligne = Sheets("Feuil1").[B65536].End(xlUp).Row + 1
    For i = 2 To derligne
        Cells(derligne, 2) = Now
    Next i

End Sub

pas comme ça

Private Sub CommandButton2_Click()

    derligne = Sheets("Feuil1").[B65536].End(xlUp).Row + 1
    j = j + 1
    For i = 2 To derligne
        Cells(i + j, 2) = Now
    Next i

End Sub

Evidemment vos propositions sont bonnes aussi... Merci à vous !