XL 2010 Filtrage automatique / macros vba

Paf à dit:

Re,

une solution possible: à chaque clic sur une checkbox on remplit un tableau avec le caption de chaque checkbox à True. Puis on utilise ce tableau comme critère de filtre

Code:

Dim TabCheck() ' à déclarer en haut de la feuille pour être vu par toutes les sub

Code:

Sub FiltreTab()  ' à rajouter dans la feuille de code
 Erase TabCheck
 For Each obj In ActiveSheet.OLEObjects
    If TypeOf obj.Object Is msforms.CheckBox Then
        If obj.Object.Value Then
            x = x + 1
            ReDim Preserve TabCheck(1 To x)
            TabCheck(x) = obj.Object.Caption
        End If
    End If
 Next obj
 Sheets("données").Range("$a$2:$db$114049").AutoFilter Field:=2, Criteria1:=TabCheck, Operator:=xlFilterValues
End Sub

et pour chaque checkbox faire appel à cette sub FiltreTab en modifiant le code existant

Code:

Private Sub JDe_Click()
 FiltreTab 
End Sub

Utiliser un tableau comme critère n'existe pas sur XL2003, je n'ai donc pas pu tester....

A+

Cliquez pour agrandir...