Userform et listbox

[dran_200]

Bonjour à tous,
J'ai un problème avec un userform. Au lancement de mon fichier, un userform s'ouvre. Je valide :
mon 1er choix sur la collonne A de ma feuille "BD"
mon 2ème choix sur la colonne C de ma feuille "BD"
et la je voudrais que :
Dans la listbox 3 : s'affiche la valeur de la colonne B
Dans la listbox 4 : s'affiche la valeur de la colonne E,I,M,Q et U (sur 1 ligne)
Dans la listbox 5 : s'affiche la valeur de la colonne F,J,N,R et V (sur 1 ligne)
Dans la listbox 6 : s'affiche la valeur de la colonne G,K,O,S et W (sur 1 ligne)
Dans la listbox 7 : s'affiche la valeur de la colonne H,L,P,T et X (sur 1 ligne)
Le problème est que dans les Listbox ça affiche plusieurs lignes, et que le trie ne se fait en fonction de mes 2 choix.
J'espere avoir été clair !!!!
je vous joint un fichier exemple.
Merci pour votre aide

 

[dran_200]

Re : Userform et listbox

Bonjour
Merci , ça fonctionne. Encore une petite chose, j'ai plusieurs feuilles dans mon fichier et si j'enregistre le fichier sur une page "menu" (autre que la page "BD"), aucune reponse ne s'affiche dans l'userform. Je suis obligé d'enregistre le fichier sur la page "BD" ? Je joint un exemple
encore merci

 

[Habitude]

Re : Userform et listbox

Ajoute 2 "."
Voir en rouge

Private Sub UserForm_Activate()

Dim derL As Long
Dim i As Long, j As Long
Dim item As String

Dim t As ClasseReferences
With Feuil3
derL = .Range("b65536").End(xlUp).Row
For i = 2 To derL
    'm.AddItem modele, Ref, finiBloc
    item = m.AddItem(.Range("A" & i), .Range("B" & i), .Range("C" & i))
    For j = 5 To 24
        Set t = m.SubItems(item)
        t.AddSubItems [COLOR="Red"][B][SIZE="5"].[/SIZE][/B][/COLOR]Cells(1, j), [COLOR="red"][B][SIZE="5"].[/SIZE][/B][/COLOR]Cells(i, j)
    Next j
Next i

ListBox1.Clear
For i = 1 To m.NbModeles
ListBox1.AddItem m.modele(i).modele
Next i
End With

SetImage "parDefaut"
End Sub

 

[dran_200]

Re : Userform et listbox

Re bonjour
Merci pour ton aide.
ça fonctionne comme je veux
encore Merci