2 réponses
Bonjour une variante en VBA
Alt+F11, cliquer sur visualiser le code et coller le code ci dessous :
Alt+F11, cliquer sur visualiser le code et coller le code ci dessous :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then Target.Offset(0, 1) = Format(Now, "dd/mm/yyyy") & " à " & Format(Time, "hh:mm:ss") End If End Sub