Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Address = "$C$6" And IsDate(c) Then c(1, 2) = Time
End Sub
Bonjour JHABonjour à tous,
Un essai en pièce jointe
JHA
Re bonjour,Bonjour à tous,
Est ce que cela fonctionne sur le fichier envoyé en #4?
Si oui, regarde bien la formule en "D8"
JHA