Combobox en cascade avec Listbox

Bonjour tout le monde,

j'ai un petit souci avec mes combobox en cascade et la ma listbox dans mon userform

Je voudrais pouvoir filtrer ma listbox avec des 2 combobox en cascade, j'explique le procédé :

On clique sur le bouton de la feuille 1, cela ouvre l'userform,

On sélectionne un des trois boutons à bascule pour alimenter la liste de la combobox1, on choisi un item (batiment) dans la liste (ça j'ai réussi)

Une fois un batiment sélectionné avec la combobox1, une liste sur 4 colonnes s'affiche dans la listbox, qui peut être très longue. (je n'arrive pas à mettre sur 4 colonnes)

Ensuite on peut filtrer cette liste avec 2 autres combobox, la combobox2 filtre la première colonne, la combobox3 filtre la troisième colonne

J'espère avoir assez expliqué ce que je souhaiterais faire

Je joins un fichier d'exemple

Merci d'avance

36test-combobox.xlsm (41.00 Ko)

Bonjour

Voila un test avec une Listview

a voir si ca marche cher toi

A+

Maurice

170test-combobox.xlsm (43.96 Ko)

Bonjour, merci à toi pour la réponse mais ça ne fonctionne pas j'ai une erreur

Erreur de compilation:

Projet ou bibliothèque introuvable

et ça me la mets pour ce code ci :

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
   Lig = Val(ListView1.SelectedItem)
'   MsgBox Lig
End Sub

bonjour

il faut activer MSCOMCTL.OCX

sinon j'ais modifier ta ListBox

Private Sub ComboBox1_Change()
ComboBox2.Clear
ComboBox3.Clear
If ComboBox1.Value <> "" Then
    With Me.ListBox1
      .Clear
      .ColumnCount = 4
      .ColumnWidths = "50;70;90;20"
      .Font.Size = 14
        .List = Sheets(ComboBox1.Value).Range("A1:D" & Sheets(ComboBox1.Value).Range("A" & Rows.Count).End(xlUp).Row).Value
    End With
End If
End Sub

A+

Maurice

Rechercher des sujets similaires à "combobox cascade listbox"