[XL-2007] 2 Combobox en cascade [Résolu]

[maxval18]

Bonjour,

je souhaiterais mettre 2 combobox en cascade sur Userform.

Je joint un exemple qui seras plus parlant

Merci d'avance et bonne journée

Cordialement

Max

[pijaku]

Bonjour MaxVal,
Un exemple de code qui reprends ta structure de données feuille base :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ComboBox1_Change()
Dim Col As Integer, Lig As Long, DrLig As Long
 
If ComboBox1.Value = "" Then Exit Sub 'si la liste 1 est vide évite des erreurs
ComboBox2.Clear 'on supprime le contenu de la liste 2
With Sheets("Base") 'on travaille dans la feuille base
    'on cherche, dans B3:D3, le contenu de la liste 1 et on renvoie son numéro de colonne
    Col = .Range("B3:D3").Cells.Find(ComboBox1.Value).Column
    'dernière ligne de la colonne trouvée
    DrLig = .Columns(Col).Find("*", , , , xlByColumns, xlPrevious).Row
    'on boucle sur ces lignes, dans cette colonne pour remplir la liste 2
    For Lig = 5 To DrLig 'ta lista commence en ligne 5
        ComboBox2.AddItem .Cells(Lig, Col)
    Next
End With
End Sub

[maxval18]

Bonjour Franck

Je te remercie sa marche Nickel

Je te souhaite une bonne journée et a bientôt

Max