Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
If IsNumeric(Target) Then Target.Offset(0, 6).Value = Date
End If
If Not Intersect(Target, Range("B1:E100")) Is Nothing Then
If Target.Value = "FINI" And Range("A" & Target.Row) > "" Then Range("H" & Target.Row).Value = Date
End If
End Sub
C''est top merci bcp.Re,
j'ai corrigé une erreur
VB:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A100")) Is Nothing Then If IsNumeric(Target) Then Target.Offset(0, 6).Value = Date End If If Not Intersect(Target, Range("B1:E100")) Is Nothing Then If Target.Value = "FINI" And Range("A" & Target.Row) > "" Then Range("H" & Target.Row).Value = Date End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
If IsNumeric(Target) Then Target.Offset(0, 6).Value = Date
If Target.Value = "" Then Target.Offset(0, 6).Value = ""
End If
If Not Intersect(Target, Range("B1:E100")) Is Nothing Then
If Target.Value = "FINI" And Range("A" & Target.Row) > "" Then Range("H" & Target.Row).Value = Date
If Target.Value = "" Then Range("H" & Target.Row).Value = ""
End If
End Sub