Re : Filtrer listbox avec des Checkbox
Bonjour, je me permet de relancer mon post, je ne trouve pas de solution à mon simple problème.
Mes Checkbox servent de filtre automatique de listbox.
Suivant les codes ci-dessous, si je coche la checkboxPL, le filtre automatique s'execute selon les infos.
Mon problème se situe quand je coche ensuite la checkboxVA, le filtre automatique s'execute, mais supprime la selection "PL" et la remplace par "VA alors que je veux completer la liste et donc si cocher checkboxPL et checkboxVA liste "PL" et "VA". Et si je decoche la checkboxPL, la liste supprimerait uniquement la selection "PL".
Merci de vos conseils, Géraldine
Private Sub UserForm_Initialize()
Dim plg1 As Range
Dim derlign As Long, i As Integer, cw
derlign = Range("j65536").End(xlUp).Row
Set plg1 = Range("B10:J" & derlign)
ListBox1.Width = 20 + plg1.Width
With ListBox1
cw = ""
.ColumnCount = plg1.Columns.Count
.RowSource = plg1.Address
For i = 1 To .ColumnCount
cw = cw & plg1.Columns(i).Width & ";"
Next
.ColumnWidths = cw
.ListIndex = -1
End With
End Sub
Private Sub CheckBoxPL_Click()
Sheets("ARTICLE").Activate
If CheckBoxPL.Value = True Then
CheckBoxPL.Caption = "Pla"
Selection.AutoFilter Field:=1, Criteria1:="PL"
Else
CheckBoxPL.Caption = "Pla"
Selection.AutoFilter Field:=1, Criteria1:="*"
End If
End Sub
Private Sub CheckBoxVA_Click()
Sheets("ARTICLE").Activate
If CheckBoxVA.Value = True Then
CheckBoxVA.Caption = "VA"
Selection.AutoFilter Field:=1, Criteria1:="VA"
Else
CheckBoxVA.Caption = "VA"
Selection.AutoFilter Field:=1, Criteria1:="*"
End If
End Sub
