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 :
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.
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
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 ...![]()
Partager