Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, 1) = Now
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, 1) = Now
Application.EnableEvents = True
End Sub
c'est presque bon :-D
tu as bien ouvert l'éditeur VBA avec alt + F11
ensuite, à gauche, AU LIEU de créer un module standard pour mettre le code fourni (ce que tu as fait)
il faut double cliquer sur la feuille concernée, ce qui ouvre la feuille de code, et à droite, coller le code
et c'est tout
:-D