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
Partager