Eric C

Bonsoir le forum
Bonsoir auds

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1") = 1 Then Beep
End Sub

Ceci active le Beep interne du PC si la valeur de la cellule a pour valeur 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1") = 1 Then
'MsgBox "Attention valeur atteinte"
'End If
End Sub

Idem sauf que cette fois ci c'est un MsgBox qui apparaît

@ ++ Eric C