alerte musicale

[Eric]

Bonjour,

J'ai besoin de créer une alerte surveillant la valeur de 4 cellules 2 à 2

Une première qui sert d'alerte (un bip ponctuel) :
-Quand la cellule L3 est à + ou - 1 point de la cellule L2 et quand la cellule M3 est à + ou - 1 point de la cellule M2
Un deuxième qui sert de signal (un bip ponctuel différent):
-Quand la cellule L3 est égale à la cellule L2 et quand la cellule M3 est à égale à la cellule M2

D'avance merci pour votre aide

Eric

 

[vincent]

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