Filtre automatique - ActiveSheet.ShowAllData

Bonjour à tous,

J'ai dans un code la formule suivante:

ActiveSheet.ShowAllData

Néanmoins, il se peut qu'aucun filtre ne soit activé lors du déroulement de la macro.

Donc la macro s'arrête parce que la procédure ne peut pas se faire.

Comment puis-je faire ignorer cette action lorsque je n'ai pas de filtres actifs ?

D'avance merci.

Willau

Bonjour Willau, bonjour le forum,

Regarde du coté de FilterMode...

Bonjour,

peut être avec un test avant de lancer :

If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilter.ShowAllData
end if

Bonjour,

Soit :

On Error Resume Next
ActiveSheet.ShowAllData
'...

Soit :

If ActiveSheet.FilterMode = False Then
'...

Tip Top

J'ai ce qu'il me faut.

MERCI.