Discussion :

[theou84]

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

[révèr]

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

[ippo_master]

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

[theou84]

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

[theou84]

Voici ce que j'ai qui ne fonctionne pas :

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
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 :/

[révèr]

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 :

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
 
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

[MarcelG]

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

[theou84]

Nikel merci révèr,

J'ai compris et ça fonctionne,

Merci

[révèr]

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.