Option Explicit
Dim Tmp$
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Not Intersect(Target, [m2]) Is Nothing And [m2].Value <> Tmp Then
Application.EnableEvents = False
[w2] = Format(Now, "ddd dd mmm yyyy hh:mm:ss")
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Tmp = [m2].Value
End Sub
Option Explicit
Dim Tmp$
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Not Intersect(Target, [m2]) Is Nothing And [m2].Value <> Tmp Then
Application.EnableEvents = False
[w2] = Format(Now, "ddd dd mmm yyyy hh:mm:ss")
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Tmp = [m2].Value
End Sub
Tester la PJBonjour et merci,
J'ai je suis néophyte en Vba. J'ai donc placé le code directement en cliquant droit sur l'onglet de la page en question "Visualiser le code". Rien ne se passe par validation de M2. Ai je commis une erreur en positionnant votre code?
Dans l'exemple que j'ai proposé, la date et l'heure sont modifiées à la modification de la cellule M2J'ai activé la macro mais test en M2 et la date en W2 restent inscrites à l'heure où vous l'avez adressée. Mon idée était que en validant la touche M2 (test) la date et l'heure seraient réactualisées. est ce comme cela que vous l'avez programmée?