Discussion :

[mikeactuaire]

Bonjour Forum,

Comment lancer une macro lorsqu'on selectionne une valeur dans le "drop list" d'une cellule?

[joe.levrai]

Bonjour,

en utilisant la procédure évènementielle "Change" de la feuille où est située ta drop list :

1) tester que le changement a bien lieu dans cette cellule
2) tester la valeur de la cellule et agir en conséquence et selon ton besoin (actions directes dans la procédure ou bien appel d'une autre macro via l'instruction "Call")

[mikeactuaire]

Bonjour,

Merci,


Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(rowabsolute:=False, columnabsolute:=False) = "C2" Then
Select Case Target.Value
  Case "Choix1": RoutChoix1
  Case "Choix2": RoutChoix2
  Case "Choix3": RoutChoix3
End Select
End If
End Sub

[vinc_bilb]

Bonjour,

Suggestion:

Code :

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

1
2
If Target = Range("C2") Then
' et rajouter peut-être Case Else: ErrMsg