Activer des macro avec une combobox.
#1
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 02-01-2008 10h10
Bonjour,
J'ai plusieur Macro (voici leur nom: rose, vert, noir, rouge). J'aimerai savoir si, à l'aide d'une combobox je peux les afficher séparément. Exemple: lorsque je clique sur rose: cela me lance la macro rose.

Merci.

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 

Re: Activer des macro avec une combobox.
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 02-01-2008 14h06
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,
Pièce jointe:
zip PourPowerPlus.zip   [ Taille: 9.49 Ko - Téléchargements: 772 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Activer des macro avec une combobox.
#3
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 02-01-2008 14h19
Bonjour à tous,

Presque la même chose que mDF mais avec une Liste de Validation (pour ne pas copier arf)

Le code est sensiblement le même

A+
Pièce jointe:
zip Lance Macro Validation.zip   [ Taille: 7.85 Ko - Téléchargements: 798 ]


Cordialement
Hors Ligne
Rapport   Haut 

Activer des macro avec une combobox.
#4
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 02-01-2008 17h16
Re,
Merci de vos réponces.

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 

Re: Activer des macro avec une combobox.
#5
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 02-01-2008 17h29
Re,

Un essai dans un USF

Le code est le même

A+

Edition : Ah ben de quoi j'ai l'air si tu modifies ta question sans prévenir arf : PowerPlus souhaitait mettre le code de mDF dans un USF
Pièce jointe:
zip PourPowerPlus_JCGL.zip   [ Taille: 6.74 Ko - Téléchargements: 680 ]


Cordialement
Hors Ligne
Rapport   Haut 

Re: Activer des macro avec une combobox.
#6
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 02-01-2008 17h32
Merci, mais je l'avais remarquer. Désoler d'avoir rédiger un post avant même d'avoir essayer.

Cordialement.

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 

Re: Activer des macro avec une combobox.
#7
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 02-01-2008 18h22
Re,

Heu... comme je me suis absenté, j'ai dû rater quelque chose... et je n'ai pas tout compris dans l'échange.

PowerPlus, merci de revenir pour dire si tu as trouvé réponse à ta question et de préfixer ce fil à [résolu] si c'est le cas STP.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Activer des macro avec une combobox.
#8
Régulier XLPages

Inscription: 24/12/2007

Messages: 59

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 02-01-2008 18h26
Vous pouvez mettre ce fil en [résolus].

Venez sur mon nouvau site: http://www.power-plus-technologie.fr.tc/
Hors Ligne
Rapport   Haut 

Re: Activer des macro avec une combobox.
#9
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 02-01-2008 18h41
Ok, merci de ton retour.

Je m'occupe de mettre [résolu] sur ce fil.

Pour info, lorsque tu crées un post ou que tu l'édites, tu peux préfixer le fil grâce à la liste déroulante comme ci-dessous :
(clic pour agrandir l'image)
Image redimensionnée
Nb : le choix [non résolu] sert à remettre en cause un fil clos précédemment à tort

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes