VBA Combobox si certaine valeur dans une autre combobox

Bonjour,

J'ai un Userform avec 2 combobox

La première prend sa source sur des cases de mon Excel et ça fonctionne,

Mais je n'arrive pas à faire que la combobox n°2 ai certaines cases de mon excel si j'ai une certaine valeur choisi dans la Combobox n°1

Comment dois-je faire?

Merci beaucoup

Bonjour theou,

Je te conseillerai de créer un tableau avec en ligne d'en-tête les noms qui te permettent d'alimenter ta ComboBox1
Et dans chacune des colonnes, les valeurs composant la Liste que prendra la ComboBox2 (en fonction du nom de l'en-tête)

Procédure :
1) Créer ta Liste Déroulante de la ComboBox1 avec la ligne d'en-tête du tableau (.HeaderRowRange)
2) ComboBox1_Change() -> Utiliser la méthode .Find pour récupérer le numéro de la colonne associé à la valeur choisie en ComboBox1
3) Alimenter la ComboBox2 en utilisant ce-dit numéro de colonne pour définir sur quelle colonne devra être effectué le remplissage. (.ListColumns(numCol).DataBodyRange.SpecialCells(xlCellTypeConstants) - ne sélectionnera que les cellules non-vides)

Exemple :

Peugeot	Renault	Toyota
3008	Mégane	Prius
2008	Clio	Yaris
305	Scénic

Bonjour,

Il te faudra coder via l'évènement "On_change" de la combobox1, les modalités de remplissage de la combobox2
Si valeur A dans combobox1, alors AA et AB dans combobox2

Merci révèr, as tu un exemple de code à insérer dans UserForm_Initialize

et dans les change des combobox pour ton exemple?

Merci à toi

Voici ce que j'ai qui ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub UserForm_Initialize()   Me.ComboBox1.RowSource = "BDD!B2:B4"   End Sub ' ici ça fonctionne   Private Sub ComboBox1_Change()   Me.ComboBox2.Clear If ComboBox1.Text = "BDD!B2" Then   Me.ComboBox2.RowSource = "Feuil1!D5:D500"   End If End Sub

---

'et ça non :/

CBTest te permet d'éviter de générer un ComboBox1_Change() dû au "CBTest.Value = ..."
Je tiens à préciser que je n'alimente pas ma ComboBox initiale avec le HeaderRowRange, puisque je commence directement avec un .Find, la donnée étant figée dès l'ouverture du UserForm. Dans ton cas, l'initialisation se fera à travers un choix.

Ainsi mon ComboBox1_Change() correspond à ce que j'ai dans mon code. Le ComboBox1_Init() est complètement inventé pour toi. J'espère que tu comprends son fonctionnement.

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

Private Sub ComboBox1_Init() Dim i As Integer   For i = 1 to t.HeaderRowRange.Columns.Count CBTest.Value = t.HeaderRowRange.Columns(i).Value If CBTest.ListIndex = -1 Then CBTest.AddItem t.HeaderRowRange.Columns(i).Value End If Next i ComboBox1.List = CBTest.List CBTest.Clear End Sub Private Sub ComboBox1_Change() Dim LF As Range, Cible As Range   Set WbO = WbT.Sheets(3) Set t = WbO.ListObjects("t_bic") Set LF = t.HeaderRowRange.Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)   For Each Cible In t.ListColumns(LF.Column).DataBodyRange.SpecialCells(xlCellTypeConstants) If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Cible.Value End If Next Cible End Sub

---

Bonjour à tous,

Dan un premier temps,
Construite une base avec en colonne 1 les marques et en colonne 2 les modèles

Exemple

Toyota prius
Toyota Yarus
Peugeot 208
Peugeot 508
Peugeot 3008
etc..

Dans un second temps,
Alimenter la Combobox 1 sans doublon
Utiliser l'évènement Change de cette dernière pour alimenter les items de la Combobox 2

2 liens à consulter
Combobox sans doublon Beaucoup d'autres exemples sur le Forum
Combobox en cascade
ou
Combobox en cascade

Nikel merci révèr,

J'ai compris et ça fonctionne,

Merci

Bonjour theou et Marcel,

Theou : Ravi que cela fonctionne !

Marcel : Pour être franc, et je ne sais pas si c'est le plus optimal... mais je préfère avoir les marques en en-tête et les modèles en colonne. Je trouve ça plus agréable visuellement, que d'avoir des centaines de répétitions de la même "marque" dans notre exemple.