Discussion :

[Bernard67]

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

[Bernard67]

Erreur de ma part,
La combobox3 doit se réinitialiser par rapport au choix de la combobox1. Malgré la consultation du forum, je ne trouve pas la solution à ce problème.
Merci pour l'aide

[zyhack]

Bonjour

à tous hasard

dans cette ligne tu définis lng

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Lgn = Cells(2, Me.ComboBox1.ListIndex + 1).End(xlDown).Row

est-ce que ce nombre de lignes est valable pour les deux autres comboBox ou ne faudrait-il pas calculer le nombre de lignes suivant le nombre d'infos dans leur colonnes respective.

pour comboBox2 : nb de ligne de la colonne "Me.ComboBox1.ListIndex + 2"

pour comboBox3 : nb de ligne de la colonne "Me.ComboBox1.ListIndex + 13"

[Bernard67]

Merci zyhack de te pencher sur mon problème.

La combo1 cherche les données dans la colonne A
La combo2 cherche les données de la colonne B à L par rapport à la combo1
la combo3 cherche les données de la colonne M à W par rapport à la combo1

le nombre de lignes de chaque colonne est variable.
Je ne comprends pas le fait que seulement 10 lignes soient sélectionnées.

[delphine35]

tu ne devrait pas mettre Lgn -1 pour la Combo 3 ? (comme pour la 2)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
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

[zyhack]

re

ce que je voulais dire c'est que ce bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    Me.ComboBox3.Clear
    With ComboBox3
        For i = 1 To Lgn
            .AddItem Sheets("Codes").Cells(i + 1, Me.ComboBox1.ListIndex + 13)
        Next i
    End With

Remplie ton combobox avec les Lng valeurs de ta boucle et si lng = 10 alors ton problème viendrait de la.

ne faudrait-il pas redéfinir le nombre de ligne à ajouter avant la boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    Lgn = Cells(2, Me.ComboBox1.ListIndex + 13).End(xlDown).Row
    Me.ComboBox3.Clear
    With ComboBox3
        For i = 1 To Lgn
            .AddItem Sheets("Codes").Cells(i + 1, Me.ComboBox1.ListIndex + 13)
        Next i
    End With

[Bernard67]

Merci zyhack ,

Il fallait redefinir le nombre de ligne à ajouter avant la boucle, comme tu l'as dit.
J'ai rajouté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Lgn = Cells(2, Me.ComboBox1.ListIndex + 13).End(xlDown).Row

Tout fonctionne correctement.
Bonne soirée et merci encore.
Cordialement

[delphine35]

Ta fonction recupere les données de la colonne correspondant à la ligne selectionné en C1.

Je l'ai essayé, cela fonctionne.

Est tu sur d'avoir le meme nombre de ligne dans toutes tes colonnes ? Combien a tu de ligne dans la colonne constituant la combo 1 (avec la ligne de titre) ?
Quand je selectionne le contenu de la ligne n°11 je vais sur la colonne V ....