Problème de Filtre

[Sophie11]

Bonjour,
Ma feuille excel contient un filtre automatique mais il arrive parfois qu'un filtre soit activé sur un critère.

J'ai écris une macro qui me permets d'effacer une partie de mes données :

Sheets("Sophie").Range("A8:H" & [E65536].End(xlUp).Row).ClearContents

Pour bien prendre en compte toutes les cellules (et non pas que celle filtré) je commence mon code par :

ActiveSheet.ShowAllData
Sheets("Sophie").Range("A8:H" & [E65536].End(xlUp).Row).ClearContents

ce qui marche trés bien, le problème c'est lorsque mon filtre est définit sur aucun critère j'obtient une erreur :
Run-time error 1004
ShowAllData method of Worksheet class failed

si quelqu'un à une idée pour résoudre ce pb en sachant que je ne souhaite pas supprimer mon filtre automatique je veux juste qu'il soit définit sur aucun critère..
merci d'avance

 

[Pierrot93]

Re : Problème de Filtre

Bonjour Sophie,

essaye en faisant un test de ce type :

With Sheets("Feuil1")
    If .AutoFilterMode And .FilterMode Then .ShowAllData
End With

bon près midi
@+

 

[Guest]

Re : Problème de Filtre

Bonjour,

Avec quelque chose comme ceci:

With ActiveSheet
    If .AutoFilterMode And .FilterMode Then .ShowAllData
End With

A+

[Edit] Hello Pierrot Gros Bing!

 

[Sophie11]

Re : Problème de Filtre

fantastique !! merci de votre aide