djpsy4trik
XLDnaute Nouveau
Bonjour,
je n'arrive pas a trouver comment filtre une listbox selon des critère de combobox
code du listbox:
code d'un des filtres:
Le fichier: https://drive.google.com/open?id=1q3f6cIZP3KBEDcJdVeZOJIynfhDTH-tm
Merci d'avance
je n'arrive pas a trouver comment filtre une listbox selon des critère de combobox
code du listbox:
VB:
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:
Code:
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