XL 2019 VBA : Enlever les filtres

VBA_dev_Anne_Marie · 3 Mars 2023

Bonjour,

Je n'arrive pas à enlever le filtre sur une page précise excel (si le filtre est présent).
En fait, j'ai testé plusieurs code VBA, comme :

VB:

If Not ActiveSheet.AutoFilterMode Then
     ActiveSheet.Range("A1").AutoFilter
  End If

Mais cela ne marche pas.

Merci pour votre aide

Phil69970 · 3 Mars 2023

Bonjour TFB

Anne Marie :

VBA_dev_Anne_Marie à dit:
mon filtre n'est pas sur la page Active

C'est sur que cela ne fonctionnera pas mais comment je peux le deviner sur ton post #1 ????

Et bien comme le dit TFB met le nom de la feuille du filtre

Sub Sup_Filtre()
Worksheets("Feuil1").AutoFilterMode = False
End Sub

Feuil1 ==> Tu mets le nom de ta feuille

@Phil69970

TooFatBoy · 7 Mars 2023

Pourrais-tu clore ta question, en cochant la meilleure réponse, stp ?

VBA_dev_Anne_Marie · 7 Mars 2023

Phil69970 à dit:
Bonjour @VBA_dev_Anne_Marie

@Phil69970

Merci, le code marche, j’ai corrigé une coquille ))

TooFatBoy à dit:
Pourrais-tu clore ta question, en cochant la meilleure réponse, stp ?

J'ai déjà fait, je viens de refaire, ça a marché ?

TooFatBoy · 7 Mars 2023

Oui, cette fois-ci ça a marché.

Merci

XL 2019 VBA : Enlever les filtres

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Phil69970

TooFatBoy

XLDnaute Barbatruc

VBA_dev_Anne_Marie

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Discussions similaires