Faire un filtre dans un tableau à l'aide d'une multi-select listbox

Version imprimable

13/06/2016, 17h56
Nomorerulz

Faire un filtre dans un tableau à l'aide d'une multi-select listbox
Bonjour à tous,

Je cherche présentement comment effectuer un filtre dans un tableau à l'aide d'une sélection faite dans une ListBox qui peut détenir plusieurs valeurs.
Voici ce que j'ai en ce moment pour les combobox avec une seule valeur (ça fonctionne bien):
Code:

1 2 ActiveSheet.ListObjects("RefinedData_tb").Range.AutoFilter Field:=3, _ Criteria1:=ChoixMois.Value
J'ai essayé la même chose pour la listbox et j'ai aussi essayé avec un array(ChoixDSM), car le nouveau champ s'appel ainsi et ça ne fonctionne pas.

Voici les champs qui peuvent être sélectionnés dans la ListBox : A10 A20 AS1 AS2 C01 C05 C06 E01 L01 L02 L03.
Ils peuvent être tous sélectionnés à la fois au même titre qu'une seule option peut l'être.

Quelqu'un à déjà fait ceci ou sait comment faire?

Merci d'avance!
Nomorerulz8-)

Bonjour,

Il faudrait passer par un tableau
Si tu utilises un bouton pour lancer le filtrage, essaie comme ceci en changeant les noms des contrôles...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
    Dim I As Long, Idx As Long
    Dim Tablo
 
    ReDim Tablo(Idx)
    Idx = -1
    For I = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(I) Then
            Idx = Idx + 1
            ReDim Preserve Tablo(Idx)
            Tablo(Idx) = CStr(Me.ListBox1.List(I))
        End If
    Next
 
    If Idx >= 0 Then
        FiltrerTableau Tablo
    End If
End Sub
 
Sub FiltrerTableau(Tablo)
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:=Tablo, Operator:=xlFilterValues
 
End Sub

1 pièce(s) jointe(s)

Merci Parmi,

Je sens que je ne suis pas loin.
Je vois que les données sont entrées dans le tablo, mais je reçois l'erreur suivante lorsque je fais une sélection et ça bloque à la ligne 41
Pièce jointe 213096

Voici le code que j'ai en place :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub btOK_Click()
 
    Dim I As Long, Idx As Long
    Dim Tablo
 
    ReDim Tablo(Idx)
    Idx = -1
    For I = 0 To Me.ChoixDSM.ListCount - 1
        If Me.ChoixDSM.Selected(I) Then
            Idx = Idx + 1
            ReDim Preserve Tablo(Idx)
            Tablo(Idx) = CStr(Me.ChoixDSM.List(I))
        End If
    Next
 
    If Idx >= 0 Then
        FiltrerTableau Tablo
    End If
'End Sub
 
 
 
'----------Filtrer les données choisient dans le formulaire-----------------------------------------
    Worksheets("Refined_Data").Activate
    ActiveSheet.ListObjects("RefinedData_tb").Range.AutoFilter Field:=2, _
        Criteria1:="2016"       'Création du faux filtre
     ActiveSheet.ShowAllData     'Retirer les filtres
    ActiveSheet.ListObjects("RefinedData_tb").Range.AutoFilter Field:=2, _
        Criteria1:=ChoixAn.Value
    ActiveSheet.ListObjects("RefinedData_tb").Range.AutoFilter Field:=3, _
        Criteria1:=ChoixMois.Value
'    ActiveSheet.ListObjects("RefinedData_tb").Range.AutoFilter Field:=5, _
'        Criteria1:=Array(ChoixDSM.Value), Operator:=xlFilterValues
 
' Sheets("Refined_Data").Range("b50") = ChoixDSM.Value
 
Unload Me
 
End Sub
Sub FiltrerTableau(Tablo)
    ActiveSheet.ListObjects("RefinedData_tb").Range.AutoFilter Field:=5, Criteria1:=Tablo, Operator:=xlFilterValues
 
End Sub

Un conseil?

17/06/2016, 17h47
Nomorerulz

TOUT FONCTIONNE!!

J'ai simplement ajouté un worksheet().Activate avec la bonne feuille avant d'effectuer le filtre et tout marche à merveille.

Merci encore!
17/06/2016, 19h27
joe.levrai

Bonjour,

au lieu de faire un Worksheets("Refined_Data").Activate, remplace tout tes ActiveSheet par Worksheets("Refined_Data") et (mieux encore) passe par un bloc With pour ne pas répéter, ou utilise une variable Worksheet.

Pour gérer ton activesheet de la procédure FiltrerTableau, il te suffit d'ajouter un paramètre pour passer la feuille dans la procédure