Merci AMIR pour ton aide mais ça ne fonctionne pas.
En revanche, le code de frangy fonctionne parfaitement, merci !!
Par contre, si je saisis bien ton code, il n'affichera la Msgbox que pour la valeur A dans A1.
Comment faire si je veux étendre la Msgbox à plusieurs cellules, voire un tableau de cellules où chaque cellule est une liste déroulante identique ? J'ai essayé
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" Or "$A$2" Then
If Target.Value = "A" Then MsgBox ("Vous avez sélectionné A")
End If
End Sub
Et
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1:$C$15" Then
If Target.Value = "A" Then MsgBox ("Vous avez sélectionné A")
End If
End Sub
Respectivement pour le cas de deux cellules et un tableau de cellules...sans succès.
Merci pour votre aide