FlorianECCO
XLDnaute Nouveau
Bonjour,
J'ai un problème concernant les Listbox.
J'ai fait une petite mise en bouche sur le fichier excel ci-joint.
Merci de votre aide
Voila mon problème :
Je cherche a avoir un UserForm qui donne :
- Listbox1 : Je choisi ma marque
- Listbox2 : Je choisi mon type (proposé en fonction de la marque)
- Listbox3 : Je choisi la taille (proposé en fonction du type)
Mon problème : L'index colonne de la listbox2 est en fonction de la listbox1 & donc l'index listbox3 ne peut pas être dans la même configuration
car les données ne sont pas disposés pareil qui dans le listbox2 ; Les références index ne sont pas bonnes.
Exemple VBA :
Pour la Listbox1 : Ok on définit la plage de celulles & on les ajoutes à la Listbox1
Pour la Listbox2 : Dim no_colonne_Type As Integer, nb_lignes_Type As Integer
no_colonne_Type = Listbox1.ListIndex
nb_lignes_Type = Worksheets("Feuil1").Cells(2, no_colonne_Type).End(xlDown).Raw
For T = 3 To nb_lignes_Type
Listbox2.AddItem Worksheets("Feuil1").Cells(T, no_colonne_Type)
Next
Pour la Listbox3 : Dim no_colonne_Largeur As Integer, nb_lignes_Largeur As Integer
no_colonne_Largeur = Listbox2.ListIndex
nb_lignes_Largeur = Worksheets("Feuil1").Cells(18, no_colonne_Largeur).End(xlDown).Row
For L = 18 To nb_lignes_Type
Listbox2.AddItem Worksheets("Feuil1").Cells(L, no_colonne_Type)
Next
J'ai un problème concernant les Listbox.
J'ai fait une petite mise en bouche sur le fichier excel ci-joint.
Merci de votre aide
Voila mon problème :
Je cherche a avoir un UserForm qui donne :
- Listbox1 : Je choisi ma marque
- Listbox2 : Je choisi mon type (proposé en fonction de la marque)
- Listbox3 : Je choisi la taille (proposé en fonction du type)
Mon problème : L'index colonne de la listbox2 est en fonction de la listbox1 & donc l'index listbox3 ne peut pas être dans la même configuration
car les données ne sont pas disposés pareil qui dans le listbox2 ; Les références index ne sont pas bonnes.
Exemple VBA :
Pour la Listbox1 : Ok on définit la plage de celulles & on les ajoutes à la Listbox1
Pour la Listbox2 : Dim no_colonne_Type As Integer, nb_lignes_Type As Integer
no_colonne_Type = Listbox1.ListIndex
nb_lignes_Type = Worksheets("Feuil1").Cells(2, no_colonne_Type).End(xlDown).Raw
For T = 3 To nb_lignes_Type
Listbox2.AddItem Worksheets("Feuil1").Cells(T, no_colonne_Type)
Next
Pour la Listbox3 : Dim no_colonne_Largeur As Integer, nb_lignes_Largeur As Integer
no_colonne_Largeur = Listbox2.ListIndex
nb_lignes_Largeur = Worksheets("Feuil1").Cells(18, no_colonne_Largeur).End(xlDown).Row
For L = 18 To nb_lignes_Type
Listbox2.AddItem Worksheets("Feuil1").Cells(L, no_colonne_Type)
Next
Pièces jointes
Dernière édition: