Extraire les titres des filtres automatiques VBA

[NatachaClr]

Bonjour,

J'applique un filtre automatique a un tableau avec des donnees, et j'aimerais recuperer les noms des differents filtres qui s'appliquent pour les mettre dans un autre tableau, en VBA.

Pourriez vous m'aider ?

merci cordialement Natacha

 

[Staple1600]

Re

Oui en te conseillant de t'aider toi-même
Voir pour ce faire la charte du forum
Notamment le point 1) dans la section Demandeur

 

[NatachaClr]

Je n'ai pas trouve ce que je recherchais JM, c'est pourquoi je pose la question ici.

 

[Staple1600]

Re

Et comment on le sait que tu as fait des recherches avant de poser ta question?
Où est-ce qu'on lit cette précision importante dans ton premier message?

 

[Staple1600]

Re

Retrouvé dans mes archives poussiéreuses
(glané sur le web anglophone)

Function AutoFilter_Criteria(Header As Range) As String
Dim strCri1$, strCri2$
Application.Volatile
    With Header.Parent.AutoFilter
        With .Filters(Header.Column - .Range.Column + 1)
            If Not .On Then Exit Function
                strCri1 = .Criteria1
            If .Operator = xlAnd Then
                strCri2 = " AND " & .Criteria2
            ElseIf .Operator = xlOr Then
                strCri2 = " OR " & .Criteria2
            End If
        End With
    End With
AutoFilter_Criteria = UCase(Header) & ": " & strCri1 & strCri2
End Function

Exemple d'utilisation ci-dessous

 

[BOISGONTIER]

Bonjour,

Le filtre automatique

http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreAutoFonctionPerso.xls

Boisgontier