Lancer une macro en fonction d'une liste deroulante

Bonjour,

J'ai un fichier avec 4 macros que j'aimerais lancer en fonction d'une valeur dans une liste déroulante.

Je voudrais lorsque je choisis dans ma liste déroulante "CLIENTS_SIGNES" qu'il lance la macro du même nom, et pareil pour les 3 autres choix.

Malgré mes recherches dans le forum et plusieurs essais avec entre autre la fonction :

Private Sub Worksheet_Change(ByVal Target As Range)

je n'arrive pas à faire fonctionner, soit il ne se passe rien, soit excel plante.

Merci d'avance pour votre aide

602classeur-exemple.xlsm (25.48 Ko)

Bonjour,

Un essai ...

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub

    If Not Intersect(Target, Range("A3")) Is Nothing Then
        If Target.Text = "CLIENTS_NON_SIGNES" Then Module1.CLIENTS_NON_SIGNES
        If Target.Text = "CLIENTS_EN_COURS" Then Module1.CLIENTS_EN_COURS
        If Target.Text = "CLIENTS_SIGNES" Then Module1.CLIENTS_SIGNES
        If Target.Text = "EFFACER_LES_FILTRES" Then Module1.EFFACER_LES_FILTRES
    End If
End Sub

ric

Bonjour,

Ca fonctionne très bien

Merci beaucoup

Rechercher des sujets similaires à "lancer macro fonction liste deroulante"