Discussion :

[Stifoun]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Stifoun]

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,

[Philippe Tulliez]

Bonjour,

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.

[Stifoun]

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

Cela fonctionnne parfaitement à présent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Count > 1 then Exit Sub

[Stifoun]

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