[XL-2003] récupérer les critères d'un filtre (fonction autofilter)

[flobuzz]

Bonjour,

1) y a-t-il moyen de vérifier en vba la présence d'un filtre sur une colonne ?
2) je cherche à récupérer les critères de filtre et ne vois pas comment faire...

Merci de votre aide

Vincent

[Daniel.C]

Bonjour,

Essaie :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
'Réf. 111108.xls flobuzz
Dim Ctr As Integer, f As Filter
With Sheets("Feuil1")
    If .AutoFilterMode = True Then
        For Each f In .AutoFilter.Filters
            Ctr = Ctr + 1
            If f.On = True Then
                txt = "Champ " & Ctr
                If f.Criteria1 <> "" Then txt = txt & " critère 1 : " & f.Criteria1
                If f.Operator <> 0 Then txt = txt & " opérateur : " & f.Operator
                If f.Criteria2 <> "" Then txt = txt & " critère 2 : " & f.Criteria2
                MsgBox txt
            End If
        Next f
    End If
End With
End Sub