Lancer une macro à partir d'une validation List

Bonjour,

Je fais à nouveau appel à la communauté car je suis coincé.

J'aimerai déclenché une macro à partir d'un changement réalisé au niveau d'une validation list. J'arrive le faire pour une cellule en particulier mais vu que ma liste peut être énorme et dépend du chargement qui sera fait au préalable, j'aimarais adapter.

L'event utilisé est le suivant

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Address = "$F$4" Then Application.Run "Macro" & Target.Value If Target.Address = "$H$4" Then Application.Run "Macro_" & Target.Value End Sub

---

L'exemple dans le fichier ci-joint sera plus parlant

Merci pour votre aide

Bonjour,
Voici un exemple pour sortir de la procédure si la cellule (Target) ne fait pas partie de la plage A2:A10

Code:

---

If Intersect(Target, Range("A2:A10")) Is Nothing Then Exit Sub

---

Cette ligne doit se trouver en début de procédure.

Merci.

J'avais effetivement oublié d'introduire la sortie.

Mon problème principal réside dans le fait que je n'arrive pas à surveiller les validation list des cellules d'une colonne entière de facon simple et groupée (cfr. exemple)

De plus, je note que rien ne se passe quand on fait le changement au niveau de la validation list mais uniquement lorsqu'on rentre dedans une nouvelle fois ???

Salutations,

Bonjour,

Citation:

---

De plus, je note que rien ne se passe quand on fait le changement au niveau de la validation list mais uniquement lorsqu'on rentre dedans une nouvelle fois ???

---

J'utilise régulièrement l'outil Validation de données associé à l'événement Worksheet_Change et je ne rencontre pas de problème particulier.
Dès que je sélectionne un élément dans la liste la procédure événementielle réagit correctement.

Tu as absoluement raison, j'avais utilisé l'évenement "Worksheet_SelectionChange"

Cela fonctionnne parfaitement à présent

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) 'Limitation de la zone de surveillance On Error GoTo fin: If Intersect(Target, Range("K12:K30000, R12:R30000, Y12:Y30000")) Is Nothing Then Exit Sub Select Case Target.Value Case "UPDATE", "CREATE" AfterUpdate (Target.AddressLocal) End Select fin: End Sub

---

Le "On error goto fin" car j'ai remarqué un comportement bizarre si j'ai le malheur de faire une sélection large dans laquelle le range surveillé est présent ... à faut d'autre chose

Un grand merci pour aide très précieuse

Salutations,

Bonjour,

Citation:

---

Le "On error goto fin" car j'ai remarqué un comportement bizarre si j'ai le malheur de faire une sélection large dans laquelle le range surveillé est présent ... à faut d'autre chose

---

Quel comportement bizarre ?
Tu veux dire lorsque tu sélectionnes plusieurs cellules sans doute ?
Il faut ajouter en début de procédure la ligne

Code:

---

If Target.Count > 1 then Exit Sub

---

J'y avais même pas pensé. .. nickel, merci.