cs_Pimouss3
Messages postés20Date d'inscriptionlundi 4 juin 2007StatutMembreDernière intervention15 septembre 2007
-
6 juin 2007 à 09:06
MAXIMO71
Messages postés46Date d'inscriptionsamedi 25 mars 2006StatutMembreDernière intervention 7 juin 2007
-
7 juin 2007 à 19:50
Bonjour,
J'ai juste un petit souci qui ne devrait pas être difficile à résoudre :
alors voilà j'aimerais éxecuter une macro quand je clique sur un choix de ma ListeBox.
voilà ce que ça donne dans le cas général :
Sub Zonecombinée77_QuandChangement()
Nom_de_ma_macro
End Sub
Il faudrait que le code entré dans VBA me permette d'éxecuter telle ou telle macro selon le choix effectué dans ma ListeBox. (la listebox fonctionne-t-elle selon les chiffres attribués aux différents choix ???)
Merci de vos réponses !
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 6 juin 2007 à 09:24
Salut,
Tu peux essayer un truc du style
Sub Zonecombinée1_QuandChangement()
Select Case ActiveSheet.DropDowns(1).List(ActiveSheet.DropDowns(1).Value)
Case "Toto": TaMacro1
Case "Tata": TaMacro2
End Select
End Sub , ----
[code.aspx?ID=41455 By Renfield]
Le seul problème que je n'ai pas encore résolu, c'est pour trouver l'indice (1) représentant le DropDown Zonecombinée1
J'ai essayer de passer le nom à la collection DropDowns mais VBA m'a insulté.
cs_Pimouss3
Messages postés20Date d'inscriptionlundi 4 juin 2007StatutMembreDernière intervention15 septembre 2007 6 juin 2007 à 09:36
Oui c'est sur excel, non je ne pense pas qu'elle soit multiselect !
Avec ceci on y est presque :
Sub Zonecombinée1_QuandChangement()
Select Case ActiveSheet.DropDowns(1).List(ActiveSheet.DropDowns(1).Value)
Case "Toto": TaMacro1
Case "Tata": TaMacro2
End Select
End Sub
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 6 juin 2007 à 09:46
Et si l'on utilisait le sosub ?
du genre :
Private Sub Command1_Click()
monindex = 2
On toto GoSub titi, tata, tot
titi: MsgBox "titi": Exit Sub
tata: MsgBox "tata": Exit Sub
tot: MsgBox "tot": Exit Sub
End Sub
où il suffit de remplacer monindex par l'index sélectionné dans la Liste et les msgbox par l'appel d'une macro, non ?
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 7 juin 2007 à 07:51
Salut,
>[auteurdetail.aspx?ID=729900 MAXIMO71]: En fait les contrôles utilisés ne sont pas les contrôles classiques, dans notre cas, ici c'est une zone de liste modifiable insérée DIRECTEMENT sur la feuille depuis a barre d'outils formulaires. Au début nous pensions ListBox ou ComboBox, mais en Fait c'est un DropDown.... Essaei avec Excel si tu le possèdes tu verras c'est la galère.