Bonjour le forum,
J'ai 3 combo en cascade, les 2 premieres affichent bien les données. Par contre la 3 eme m'affiche seulement une 10 de noms. Selon les criteres choisis dans les 2 premieres, alors qu'il devrait y avoir une 30 de noms afficher dans la 3eme combo.
Je ne trouve pas la solution a mon problème;
Merci pour votre aide.
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
Private Sub ComboBox1_Change()
    Sheets("Codes").Activate
    ' Récupère le nombre de lignes de la colonne concernée
    Lgn = Cells(2, Me.ComboBox1.ListIndex + 1).End(xlDown).Row
 
    Me.ComboBox2.Clear
    With ComboBox2
        For i = 1 To Lgn - 1
            .AddItem Sheets("Codes").Cells(i + 1, Me.ComboBox1.ListIndex + 2)
        Next i
    End With
    Me.ComboBox2.ListIndex = 0
 
    Me.ComboBox3.Clear
    With ComboBox3
        For i = 1 To Lgn
            .AddItem Sheets("Codes").Cells(i + 1, Me.ComboBox1.ListIndex + 13)
        Next i
    End With
    Me.ComboBox3.ListIndex = 0
 
 
    Sheets("Menu").Activate
End Sub