Bonjour
Voila une macro à copie dans la feuille ou ce trouve tes données à surveiller
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Range("l2:m3"), Range(Target.Address)) Is Nothing Then
If Abs(Range("l2") - Range("l3")) = 1 And Abs(Range("m2") - Range("m3")) = 1 Then
beep
End If
If Range("l2") = Range("l3") And Range("m2") = Range("m3") Then
beep
Application.Wait DateAdd("s", 1, Time)
beep
End If
End If
End Sub
Elle fait un simple beep pour le premier cas et un double dans le 2 cas
Voila
@+Vincent