Lancer des macros à partir d'une liste déroulante

M

Michou9

XLDnaute Occasionnel

• 16 Juin 2012

• #16

Re : Lancer des macros à partir d'une liste déroulante

Oui j'ai bien vu cette colonne

Mais admettons que je veuille substituer cette zone appelée "liste" par la zone "listeB" situé en colonne X

Comment je fais ?

 

Vote positif 0 Vote négatif

M

Michou9

XLDnaute Occasionnel

• 16 Juin 2012

• #17

Re : Lancer des macros à partir d'une liste déroulante

Pardon, ta 2ème réponse s’est croisée avec la mienne

Ca va j’ai compris

Je vois déjà une différence importante dans la présentation

Le ComboBox semble beaucoup plus paramétrable que validation de données

La largeur du ComboBox est indépendante de la liste, contrairement à l’autre
Je n’ai pas encore trouver ou cela se gère ?

 

Vote positif 0 Vote négatif

M

Michou9

XLDnaute Occasionnel

• 16 Juin 2012

• #18

Re : Lancer des macros à partir d'une liste déroulante

Cest oK pour régler la largeur de la zone listée

Reste le plus important, lancer les macros
Cala fonctionne très bien avec la validation des données

Mais pour la ComboBox
Seule la 1ère macro fonctionne 😡

Voix-tu d'où cela peut venir ??

Merci

Code:

Private Sub ComboBox2_Change()
    Select Case ComboBox1.Value
    Case "Essai"
        Macro1
    Case "Truc"
        Macro2
    Case "Chose"
        Macro3
    Case "Machin"
        Macro4
    End Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> [j5] Then Exit Sub
    Select Case [j5].Value
    Case "Essai"
        Macro1
    Case "Truc"
        Macro2
    Case "Chose"
        Macro3
    Case "Machin"
        Macro4
    End Select

End Sub

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 16 Juin 2012

• #19

Re : Lancer des macros à partir d'une liste déroulante

mettre le fichier sur le fil c'est plus facile

 

Pièces jointes

• macro combo.xls

  69 KB · Affichages: 88
• macro combo.xls

  69 KB · Affichages: 72
• macro combo.xls

  69 KB · Affichages: 75

Dernière édition: 16 Juin 2012

Vote positif 0 Vote négatif

M

Michou9

XLDnaute Occasionnel

• 16 Juin 2012

• #20

Re : Lancer des macros à partir d'une liste déroulante

Bonsoir

Je joins le fichier

Je ne vois pas où est mon erreur dans la ComboBox

Merci

A+

 

Pièces jointes

• macro combo Perso.xls

  80.5 KB · Affichages: 74

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 16 Juin 2012

• #21

Re : Lancer des macros à partir d'une liste déroulante

Re

Voici un exemple avec une liste de validation (j'ai pas eu le temps de voir les autres fichiers 😱).

Par contre on ne peut pas lancer 2 fois de suite la même macro car c'était dans mon cahier des charges. Il faudrait modifier le code légèrement pour cela 😕.

 

Pièces jointes

• LanceMacroListeValidation.xls

  39.5 KB · Affichages: 76

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 16 Juin 2012

• #22

Re : Lancer des macros à partir d'une liste déroulante

salut Tous

Si... c'est ComboBox2 ce n'est pas ComboBox1 !

Code:

Private Sub ComboBox2_Change()
    Select Case ComboBox2
      Case "Essai": Macro1
      Case "Truc": Macro2
      Case "Chose": Macro3
      Case "Machin": Macro4
    End Select
End Sub

 

Vote positif 0 Vote négatif

M

Michou9

XLDnaute Occasionnel

• 18 Juin 2012

• #23

Re : Lancer des macros à partir d'une liste déroulante

Bonjour SI

Merci pour ta réponse :

Je suis étourdi ! 🙁
Il faut dire que quand on insère un ComboBox, même si il y a déjà un ComboBox dans la feuille, il s’affiche :
=INCORPORER("Forms.ComboBox.1";"")
Le 1 ne désigne donc pas le N° du ComboBox ??

Merci aussi pour le script
Il est bien plus simple et facile à mettre en œuvre

Je ne pense que cela soit possible,
Mais je pose la question ?
Serait-il possible de mettre les noms affichés dans ce ComboBox de plusieurs polices en couleurs
Ex : Essai (En rouge), Machin (En Vert) etc.

Merci

 

Vote positif 0 Vote négatif