Controle d'un filtre dans une Feuille

bonjour,

je voudrais appliquer la macro suivant si le filtre est actif dans la feuille "resultatcdc87" si il n'est pas actif je reste dans la feuille "base licenciés";

Sub Macro3()

' supprimer les filtres

'

Sheets("resultatcdc87").Select

ActiveSheet.ShowAllData

Sheets("Base licenciés").Select

End Sub

merci d'avance de vos réponses

philippe

Bonjour,

Puisque la feuille "Base licenciés" est active lorsque tu lances la macro, tu peux utiliser la code suivant

Sub Macro3() ' supprimer les filtres
    With Sheets("resultatcdc87")
        'Si un filtre a été créé sur la feuille'
        If .AutoFilterMode = True Then
            'S'il y a des données filtrées, affiche toutes les lignes de la liste actuellement filtrée '
            If .FilterMode Then .ShowAllData
        End If
    End With
End Sub

A+

Merci pour ta réponse, mais ça ne fonctionne pas, je pense que ça viens du faite que le filtre est une macro à la base.

je joins le fichier

merci de d'avance

ca ira mieux avec le fichier

bonjour

en cherchant sur le net, j'ai trouvé la solution:

si ça peut interesser quelqu'un

sub Macro4() ' supprimer les filtres

With Sheets("resultatcdc87")

'Si un filtre a été créé sur la feuille

If .FilterMode = True Then

'S'il y a des données filtrées, affiche toutes les lignes de la liste actuellement filtrée '

If .FilterMode Then .ShowAllData

End If

End With

end sub