[XL-2007] 2 Combobox en cascade

1 pièce(s) jointe(s)

2 Combobox en cascade

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

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

Bonjour Franck

Je te remercie sa marche Nickel

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

Max