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
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.
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.