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

Hulk · 17 Mai 2010

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 · 17 Mai 2010

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

bonjour Hulk

Peut-être ceci ?

Code:

[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 · 17 Mai 2010

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 · 17 Mai 2010

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

Hello,

Mais que j'suis c..

Comme ça

Code:

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

Code:

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 !

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

Hulk

XLDnaute Barbatruc

Pièces jointes

ROGER2327

XLDnaute Barbatruc

GBI

XLDnaute Occasionnel

Pièces jointes

Hulk

XLDnaute Barbatruc

Discussions similaires

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

Hulk

XLDnaute Barbatruc

Pièces jointes

ROGER2327

XLDnaute Barbatruc

GBI

XLDnaute Occasionnel

Pièces jointes

Hulk

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency