Discussion :

[brownthefou]

Bonjour à tous,
Etant débutant en VBA je demande votre indulgence pour une question qui va surement vous sembler simpliste, mais j'ai du mal a trouver des réponses sur le forum ou des FAQ.

Je cherche à créer deux combobox en cascades, vous allez me dire de regarder sur tel ou tel exemple mais ce n'est pas exactement pareil que ce que j'ai pu trouver jusqu'à présent.

En fait j'aimerai rentrer "à la main" toutes les possibilités des combobox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub ComboBox2_Change()
    'famille
    ComboBox2.Clear
    ComboBox2.AddItem "B11 - TRICAN"
    ComboBox2.AddItem "Pokémon"
End Sub
 
Private Sub ComboBox3_Change()
    'produit
 
    If ComboBox2 = "B11 - TRICAN" Then
 
        ComboBox4.Clear
        ComboBox4.AddItem "B11C6"
        ComboBox4.AddItem "B12C7"
        ComboBox4.AddItem "B13C8"
        ComboBox4.AddItem "B14C9"
 
    End If
 
    If ComboBox3 = "Pokémon" Then
        ComboBox4.Clear
        ComboBox4.AddItem "Pikachu"
        ComboBox4.AddItem "Bulbizarre"
        ComboBox4.AddItem "Salamèche"
        ComboBox4.AddItem "Carapuce"
    End If
 
 
End Sub
 
Private Sub UserForm_Click()
 
    ComboBox1.Clear
    ComboBox2.Clear
    ComboBox3.Clear
    ComboBox1 = "CarVD2"
    ComboBox2 = "Pokémon"
    ComboBox3 = "Pikachu"
 
End Sub

Bon vous allez me dire que c'est brouillon mais j'ai essayé de comprendre à peu près les posts des différents "mini-tutos" laissés à droite et à gauche sur internet.

Donc la, je pense effacer toutes les Combobox, définir un premier choix pour les 3 combobox et faire dépendre la troisième de la seconde, et pourtant rien ne s'inscrit dans aucune combobox quand j'essaye de faire bouger mon USF...

Ne me tapez pas dessus, mais si vous avez des idées ...

[rvtoulon]

Bonjour,
à mon avis tu ne vas pas dans la facilité mais voici un exemple avec un userform et deux combobox.
je commence par initialiser ma combo1 au démarage de l'userform.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Initialize()
'Initialise ma combo 1
mesitems = Array("tonton", "tata")
Me.ComboBox1.List = mesitems
End Sub

ensuite dans l'événement "change" du combo1 je définie se que je souhaite mettre dans le combo2 en fonction du choix de la combo1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ComboBox1_Change()
Select Case Me.ComboBox1.Value
 
    Case "tonton" 'si je choisis tonton
        Me.ComboBox2.Clear
 
        Me.ComboBox2.AddItem "Homme"
 
    Case "tata" 'si je choisis tata
        Me.ComboBox2.Clear
 
        Me.ComboBox2.AddItem "Femme"
End Select
End Sub

etc... pour les autres combo.

[brownthefou]

Bonjour Hervé !
Merci, c'est exactement ce que je recherchais

Une petite question au passage :

Les combobox.additems doivent se faire obligatoirement dans la combobox précédente ? En suivant ta méthode ça marche très bien mais par exemple je ne peux pas faire un ComboBox2AddItems "tata" dans ma combobox2_change, je me trompe ?

[rvtoulon]

De rien, j'ai moi même beaucoup appris grâce à ce forum.

Les combobox.additems doivent se faire obligatoirement dans la combobox précédente ?

Je pense que c'est le mieux.Je ne vois pas vraiment l'intéret de le faire sur le change de la combo elle-même.
Bon courage pour la suite.