Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("Tableau1[Validation19]")) Is Nothing Then
If UCase(Target) = "OK" Then
Application.EnableEvents = False
Target.Offset(, 1) = Date
Application.EnableEvents = True
End If
End If
End Sub
Une formule ? Pour ça, je ne crois pas.je crois qu'il existe une formule mais là je pèche....
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("Tableau1[Validation19]")) Is Nothing Then
If UCase(Target) = "OK" Then
Application.EnableEvents = False
Target.Offset(, 1) = Date
Application.EnableEvents = True
End If
End If
End Sub