exécuter diverse commande en fonction de l'intitulé d'un bouton

[k4RADOC]

Bonjour,


C'est probablement un sujet qui à déjà été traité cependant j'ai du mal à formuler ma requète sur google.
Voici le problème : J'ai une liste déroulante avec 7 options dispo (option1, option2, option3 etc) un bouton de commande qui est lié à cette liste (si je séléctionne "option 1" mon bouton affiche alors "option 1" et ainsi de suite).
Je voudrais savoir comment faire pour qu'en fonction de l'option choisi je puisse appeler tel ou tel macro.
Pour la liste je sais que l'on fait comme ci dessous, mais pour le bouton je bloque.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Address = "la cellule de la liste" Then
        Select Case Target.Text
        Case Is = "option1"
                call 'la commande voulu'
Case Is = "option 2"
                         call 'la commande voulu'
etc                                
        End Select

J'imagine que ce doit être un truc dans le style :

Private Sub CommandButton1_Click()

If CommandButton1.Caption = "option 1"Then
call macro voulu
End If
End Sub

Si quequ'un sait comment faire ou à un lien sur un sujet du même type ce serait parfait.

 

[Robert]

Re : exécuter diverse commande en fonction de l'intitulé d'un bouton

Bonjour K4radoc, bonjour le forum,

Étrange que tu poses la question puisque tu donnes toi-même la réponse...

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "option 1"Then call macro voulu
If CommandButton1.Caption = "option 2"Then call macro voulu
....
End Sub

Avec 7 If ou avec un Select Case...

 

[k4RADOC]

Re : exécuter diverse commande en fonction de l'intitulé d'un bouton

Ah oui ça marche j'ai du faire une erreur lors de mon premier test
Merci bien en tout cas