Exécuter la macro en fonction de la valeur sélectionnée dans la liste dérou

Bien le bonjour à toute la communauté d'Excel-Pratique,

Je voudrais Exécuter la macro en fonction de la valeur sélectionnée dans une liste déroulante

sans titre

Voici le code placé dans la feuil1 (Calculation) concernée:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G6")) Is Nothing Then

Select Case Range("G6")
Case "PU/SU": Substract1
Case "PE/SE": Sum1
End Select
End If
End Sub

G6 est la cellule où se trouve la liste déroulante

PU/SU et PE/SE sont les 2 seules options de la liste déroulante

Substract1 et Sum1 sont les noms des 2 macros qui doivent être "appelées" selon le choix dans la liste déroulante

J'ai choisi la liste déroulante via contrôle de formulaire

-> Le résultat est "1" ou "2" dans la cellule H6 selon le choix dans la liste déroulante

Je suis perdu... une bonne âme à mon secours?

Bonjour et

J'ai choisi la liste déroulante via contrôle de formulaire

Sur ta photo, on ne dirait pas une liste déroulante via controle de formulaire.
Voici un fichier avec 3 feuilles pour 3 listes déroulantes différentes (+macro associé).

Validation des données => Private Sub Worksheet_Change
Contrôle de formulaire => Sub ListContFor()
Contrôle Active X => Private Sub ComboBox1_Change()

Pour moi, Contrôle de formulaire est la pire façon de faire.

A+

Bonjour tout le monde,

Une autre possibilité :

16listed.xlsm (23.86 Ko)

Infiniment merci à vous Optimix et Geof52 !

C'est avec diligence que je consulterai votre proposition.

Je reviendrai vers vous pour vous tenir au courant.

Bien à vous,

Thierry

Voilà qui me réjouis!!! encore merci

J'ai finalement choisi le contrôle ActiveX.

Merci à vous et merci à Excel-Pratique

Rechercher des sujets similaires à "executer macro fonction valeur selectionnee liste derou"