Filtrer listbox avec des Checkbox

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

Re : Filtrer listbox avec des Checkbox

avec le code ci-dessous, je filtre les données de la feuille "article", alors que je veux filtrer mes données de la Listbox.
J'ai beau chercher des exemples, mais les seuls posts que je trouve, sont à partir d'une ou des combobox et non de checkbox.

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

Je commence à desesperer 😱

Re : Filtrer listbox avec des Checkbox

un peu d'aide sur mon problème, ça n'inspire personne...
bonne soiree

Re : Filtrer listbox avec des Checkbox

bonjour Géraldine
avec 3 listbox
listbox3 choix colonne, initialise listbox2
choix listbox2, initialise listbox1
(tri et filtre données sur chaque colonne choisie)
avec les checkbox tu étais limitée,tu auras plus de 4 articles
à bientôt

Re : Filtrer listbox avec des Checkbox

bonsoir,

C'est certainnement plus approprié, c'est vrai ... un tri complet. Merci beaucoup bebere,

Mais j'aimerais quand meme bien trouver un exemple de tri par checkbox pour d'autres applications.

Encore merci bebere,

Amicalement, géraldine

Re : Filtrer listbox avec des Checkbox

bonjour Géraldine
et une portion de checkbox,servie chaude
bon appétit
à bientôt

Re : Filtrer listbox avec des Checkbox

re
à 16h37 cétait le quatre heure...
vraiment et encore merci bebere. Mais c'est sure c'est chaud et sur un plateau,je me sent dans un quatre etoile au moins.

Amicalement, géraldine

Re : Filtrer listbox avec des Checkbox

bonjour à tous
Géraldine
le bouton modifier est fait
ajout de textbox2 et 3 ds usfart
cbo ref et cf sont initialisées et sélections sur contenus de textbox2 et 3
il faut ref et article pour bien localiser la ligne
tu expliques ou demandes pour la suite
j'ai repéré les changements par 'ajout bebere
à bientôt

Re : Filtrer listbox avec des Checkbox

merci à toi bebere, je vais adapter tout ça dans mon application.

Toujours une chose qui me tracasse, pourquoi au deplacement des userform, j'ai une effet très gênant. Est ce que ça te le fait ?

Amicalement Géraldine et encore merci

Re : Filtrer listbox avec des Checkbox

oui Géraldine
j'ai parfois la même chose,dédoublement et plus du userform
çà viendrait de la carte graphique çà ne m'étonnerait pas
à bientôt