Rapport de message :*
 

Re: Activer des macro avec une combobox.

Titre du sujet : Re: Activer des macro avec une combobox.
par myDearFriend! le 02/01/2008 14:06:18

Bonjour PowerPlus,

VBA te permet de faire ça de plusieurs façons.

Dans l'exemple que tu trouveras en pièce jointe, voici à mon avis la plus simple et la plus "académique" des mises en oeuvre.

Soit un objet activeX ComboBox dans la feuille de calcul Feuil1, j'ai utilisé ensuite le code suivant :

DANS LE MODULE DE CODE DE LA FEUIL1 :
Private Sub ComboBox1_Change()
    Select Case ComboBox1.Text
    Case "rose"
        rose
    Case "vert"
        vert
    Case "noir"
        noir
    Case "rouge"
        rouge
    End Select
End Sub

DANS UN MODULE DE CODE STANDARD (ex : Module1) :
Sub rose()
    MsgBox "La macro 'rose' est lancée"
End Sub

Sub vert()
    MsgBox "La macro 'vert' est lancée"
End Sub

Sub noir()
    MsgBox "La macro 'noir' est lancée"
End Sub

Sub rouge()
    MsgBox "La macro 'rouge' est lancée"
End Sub


[list]
[*]Lorsque l'utilisateur sélectionne un élément dans la ComboBox, cela déclenche l'évènement Change() correspondant.
[*]Dans cet évènement Change(), j'utilise une instruction de bloc Select Case...End Select qui va tester la valeur de l'élément choisi et lancer simplement la macro associée du Module1.
[/list]

Cordialement,