Re : Déclenchement Macro Evènementielle + Liste Déroulante
Salut ljoue,
je n'ai pas compris ta remarque, pour moi la solution s'applique mais le code est a adapter, par exemple si tu ne veux traiter que la cellule A1 (ligne 1 colonne 1) il suffit de le tester, de remplace le msgbox par un Call TaMacro
si tu veux traiter même en cas d'absence de saisie tu enlève "If Cellule.Value <> "" Then .. else/endif"
de plus, si ta macro modifie une cellule (A1 ou autre) pour éviter de boucler sur l'événement
je t'ai ajouté
Application.EnableEvents = False '**** bloquer les événements le temps du traitemen
Application.EnableEvents = True ' réactiver les événements
Private Sub Worksheet_Change(ByVal Cellule As Range)
If Cellule.Column <> 1 Or Cellule.Row <> 1 Then Exit Sub '<=== cellul # A1
'
Application.EnableEvents = False '**** bloquer les événements le temps du traitemen
If Cellule.Value <> "" Then
With Sheets("Feuil2").Range("Valeur")
Set c = .Find(Cellule.Value, LookIn:=xlValues)
If c Is Nothing Then
MsgBox (Cellule.Value & "pas trouvé")
Else
MsgBox (Cellule.Value & "OK")
End If
End With
else
msgbox ("absence de saisie")
End If
Application.EnableEvents = True ' réactiver les événements
End Sub
Mais je n'ai peut être pas compris ta question
GIBI