XL 2016 Filtre dans un listbox

[djpsy4trik]

Bonjour,

je n'arrive pas a trouver comment filtre une listbox selon des critère de combobox

code du listbox:

Sub controle()
Dim Tablo

L_controle.Clear
    Sheets("Controle").Select
  Tablo = Range("A2").CurrentRegion

  With Me.L_controle
    .ColumnCount = UBound(Tablo, 2)
    .List = Tablo
End With


End Sub

code d'un des filtres:

Private Sub C_filtreop_Change()
If C_filtreop.Value <> "" Then
CommandButton12.Visible = True
End If

If C_filtreop.Value <> "" Then
Sheets("Controle").Select

     ActiveSheet.ListObjects("Tableaucontrole").Range.AutoFilter Field:=6, _
        Criteria1:=C_filtreop.Value
End If

End Sub

Le fichier: https://drive.google.com/open?id=1q3f6cIZP3KBEDcJdVeZOJIynfhDTH-tm

Merci d'avance

 

[Dranreb]

Bonsoir
Cette ressource le fait sans qu'on ait besoin de s'en occuper, sauf au début pour mettre en correspondance les ComboBox avec les colonnes du tableau.

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

www.excel-downloads.com

Remarque: j'ai en cours d'étude un autre dispositif qui se chargera aussi des autres fonctionnalités de l'UserForm.

 

[BOISGONTIER]

Bonsoir,

Formulaire liste multi-colonnes

Boisgontier