Valeur de filtre

[Kersijus]

Bonjour à tous,

Peut-on sous VBA récupérer la valeur selon laquelle un filtre est activé*? Je joins également un fichier pour une meuillere compréhension. N'hésitez pas à me poser des questions.

Cordialement.

 

[Paf]

Re : Valeur de filtre

Bonjour

une macro qui renvoie la valeur du filtre de la colonne 1:

Sub ValeurFiltre()
With Sheets("Feuil1")
    If .AutoFilterMode Then ' si la feuille est en mode filtre auto
        If .AutoFilter.Filters(1).On Then 'si le filtre 1 est activé
            MsgBox .AutoFilter.Filters(1).Criteria1
        Else
            MsgBox "Pas de filtre en colonne 1"
        End If
    Else
        MsgBox "la feuille n'est pas en mode filtre"
    End If
End With
End Sub

A+

 

[Kersijus]

Re : Valeur de filtre

Merci pour votre aide*! Cela fonctionne parfaitement.