Insertion de ComboBox

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:

---

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 ... :)

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:

---

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:

---

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.

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

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 ?

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

Citation:

---

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.