insertion date et heure

[MIMMOS]

Bonjour à tous et merci à qui peut m'aider:
Comment faire pour inserer automatiquement à la suite et infinis la date en a1 et l'heure en b1 à chaque fois que on appui sur un button,
ci joint l'exemple.
Encore merci pour l'aide

 

[Pierrot93]

Re : insertion date et heure

Bonjour mimmos

regarde le code ci-dessous, devrait répondre à ta question :

Option Explicit
Sub test()
With Sheets("Feuil1").Range("A65536").End(xlUp)
    .Offset(1, 0).Value = Date
    .Offset(1, 1).Value = Time
End With
End Sub

bonne fin d'après midi
@+

 

[JCGL]

Re : insertion date et heure

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Date_Heure()
Dim DerL As Long
DerL = Range("A65536").End(xlUp).Row + 1
Range("A" & DerL) = Format(Now, "dd/mm/yyyy")
Range("B" & DerL) = Format(Now, "hh:mm:ss")
End Sub

A+ à tous

Edition : Salut Pierrot

 

[MIMMOS]

Re : insertion date et heure

Excellent!! ça marche merci pour la rapidité et l'efficacite.
Cordialement