XL 2019 VBA désactiver filtre(s) actif(s) sans enlever filtre automatique

[Lionel69890]

Bonjour à tous,

J'ai un tableau sur lequel un filtre automatique est présent sur la plage "B2:BT2000"
Avant de lancer une macro j'aimerai désactiver tous les filtres actifs qui pouraient être actifs sur mes différentes colonnes sans pour autant enlever le filtre automatique

Quelqu'un peut-il m'indiquer le bout de code qui m'est nécessaire ?

Merci d'avance pour votre aide
Lionel

 

[Oneida]

Bonjour,

devrait aller, B2 doit etre l'entete de colonne

ActiveSheet.AutoFilterMode = False
    ActiveSheet.Range("B2:B2000").AutoFilter

 

[Lionel69890]

Parfait merci beaucoup

 

[Cousinhub]

Bonjour,
Ou peut-être?

With ActiveSheet
    If .FilterMode Then .ShowAllData
End With

Bonne journée