renvoie l heure

[Marc77]

boujour a tous

J ai se code vba sur la feuille qui me renvoie la date, mais je voudrais renvoyé l heure.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Then
Cells(Target.Row, 5) = Date
End If
End Sub

Merci de vos réponse
A+ Marc

 

[Eric C]

Bonjour le forum
Bonjour Marc77


Tu remplaces Date par Time

Si tu désires un format différent alors :

Cells(Target.Row, 5) = Format(Time, 'hh:mm')

A adapter of course
Bonne soirée à toutes & à tous

Message édité par: Eric C, à: 08/08/2005 19:49

 

[Marc77]

Merci Eric C de ta réponse aussi rapide.

Marc