ComboBox dans Excel
Kayia
Messages postés
1
Date d'inscription
vendredi 29 octobre 2004
Statut
Membre
Dernière intervention
29 octobre 2004
-
29 oct. 2004 à 13:59
FFkiller Messages postés 72 Date d'inscription lundi 28 juin 2004 Statut Membre Dernière intervention 12 mai 2005 - 15 avril 2005 à 14:01
FFkiller Messages postés 72 Date d'inscription lundi 28 juin 2004 Statut Membre Dernière intervention 12 mai 2005 - 15 avril 2005 à 14:01
2 réponses
bidoch78
Messages postés
67
Date d'inscription
mercredi 27 février 2002
Statut
Membre
Dernière intervention
2 décembre 2005
29 oct. 2004 à 14:12
29 oct. 2004 à 14:12
dans l'evenement click de ton ComboBox1
Private Sub ComboBox1_Click()
ComboBox1.Clear
Select case ComboBox1.Text
Case "Alimentation"
ComboBox2.AddItem "Epicerie"
ComboBox2.AddItem "Grand Magasin"
Case "Animaux"
ComboBox2.AddItem "Chien"
ComboBox2.AddItem "Chat"
End Select
End Sub
Bidoch78
Private Sub ComboBox1_Click()
ComboBox1.Clear
Select case ComboBox1.Text
Case "Alimentation"
ComboBox2.AddItem "Epicerie"
ComboBox2.AddItem "Grand Magasin"
Case "Animaux"
ComboBox2.AddItem "Chien"
ComboBox2.AddItem "Chat"
End Select
End Sub
Bidoch78
FFkiller
Messages postés
72
Date d'inscription
lundi 28 juin 2004
Statut
Membre
Dernière intervention
12 mai 2005
1
15 avril 2005 à 14:01
15 avril 2005 à 14:01
Tu peux créer deux colonnes dans excel :
La première contient :
- Alimentation
- Animaux domestiques
- ...
La deuxième contient :
- épicerie
- Restaurant
- Grand magasins
- ...
Tu nommes ta plage (A1:A...) "Type" (par exemple
Les plages B1: B... qui contient les éléments pour ta Combobox2 devront
être nommées en fonctions (exemple B1: B3 (épicerie, Restaurant , Grand
magasins) devient "Alimentation"
Dans VBA maintenant
Tu met :
Sub combobox1_Change()
If Combobox1.Value "Alimentation" Then Combobox2.RowSource "Alimentation"
If Combobox1.Value "Animaux domestiques" Then Combobox2.RowSource "taplage2"
'A répéter autant de fois que tu as de champs en colonne 1
'Attention à la syntaxe et aux insertions de nouveaux champs
End Sub
FFkiller
La première contient :
- Alimentation
- Animaux domestiques
- ...
La deuxième contient :
- épicerie
- Restaurant
- Grand magasins
- ...
Tu nommes ta plage (A1:A...) "Type" (par exemple
Les plages B1: B... qui contient les éléments pour ta Combobox2 devront
être nommées en fonctions (exemple B1: B3 (épicerie, Restaurant , Grand
magasins) devient "Alimentation"
Dans VBA maintenant
Tu met :
Sub combobox1_Change()
If Combobox1.Value "Alimentation" Then Combobox2.RowSource "Alimentation"
If Combobox1.Value "Animaux domestiques" Then Combobox2.RowSource "taplage2"
'A répéter autant de fois que tu as de champs en colonne 1
'Attention à la syntaxe et aux insertions de nouveaux champs
End Sub
FFkiller
