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

Phil69970 · 3 Mars 2023

Bonjour @VBA_dev_Anne_Marie

Essaye ceci:

AutoFilterMode = False

Merci de ton retour

@Phil69970

VBA_dev_Anne_Marie · 3 Mars 2023

Phil69970 à dit:
Bonjour @VBA_dev_Anne_Marie

Essaye ceci:

Merci de ton retour

@Phil69970

VBA_dev_Anne_Marie · 3 Mars 2023

Merci, j'ai déjà essayé, mais, en fait, mon filtre n'est pas sur la page Active et je ne sais pas comment changer la syntaxe.

TooFatBoy · 3 Mars 2023

Bonjour,

VBA_dev_Anne_Marie à dit:
mon filtre n'est pas sur la page Active et je ne sais pas comment changer la syntaxe.

Peut-être en mettant le nom de la feuille à la place de ActiveSheet ?

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

VBA_dev_Anne_Marie · 3 Mars 2023

TooFatBoy à dit:
Bonjour,

Peut-être en mettant le nom de la feuille à la place de ActiveSheet ?

VBA_dev_Anne_Marie · 3 Mars 2023

Bonjour,
J’ai essayé, le filtre reste.

TooFatBoy · 3 Mars 2023

Zut, ma boule de cristal est chez le réparateur...

Du coup, tu nous posterais peut-être un petit classeur anonymisé et représentatif de ton vrai classeur ?

Phil69970 · 3 Mars 2023

Re

Anne Marie

J'ai essayé mon code du post #6 (avant de le poster sur le forum) sur mon PC et il fonctionne très bien
==> Le filtre sur la feuille 1 s’enlève alors que je le lance de la feuille 2
Fourni un fichier en l'anonymisant comme le dit TFB

@Phil69970

VBA_dev_Anne_Marie · 6 Mars 2023

Phil69970 à dit:
Bonjour TFB

Anne Marie :

Regarde la pièce jointe 1164796

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

Feuil1 ==> Tu mets le nom de ta feuille

@Phil69970

Merci, ça marche, par contre la cellule, où il y avait un filtre reste sélectionnée. Comment on désélectionne les cellules ? Merci !

Phil69970 · 6 Mars 2023

Bonjour @VBA_dev_Anne_Marie

VBA_dev_Anne_Marie à dit:
Merci, ça marche, par contre la cellule, où il y avait un filtre reste sélectionnée. Comment on désélectionne les cellules ? Merci !

Non le code que j'ai mis au post #6 ne sélectionne aucune cellule
Dans ta feuille filtrée tu sélectionnes n'importe quelle cellule et tu lances la macro et tu verras que la cellule sélectionnée est toujours la même !!!

* Rappel : Dans toutes les feuilles excel il y a forcément une cellule sélectionnée si tu ouvres un nouveau fichier vierge c'est la cellule A1

Et voici la preuve par l'exemple

Merci de ton retour

@Phil69970

mapomme · 6 Mars 2023

Bonjour à tous ,

On peut aussi conserver le filtre automatique (ou filtre avancé) mais enlever tous les critères pour tout afficher :
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
ou bien :
If Sheets("Feuil1").FilterMode Then Sheets("Feuil1").ShowAllData

Phil69970 · 7 Mars 2023

Bonjour @VBA_dev_Anne_Marie

Phil69970 à dit:
Merci de ton retour

@Phil69970

VBA_dev_Anne_Marie · 7 Mars 2023

Phil69970 à dit:
Bonjour @VBA_dev_Anne_Marie

@Phil69970

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

XL 2019 VBA : Enlever les filtres

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Phil69970

Phil69970

XLDnaute Barbatruc

VBA_dev_Anne_Marie

XLDnaute Occasionnel

VBA_dev_Anne_Marie

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

VBA_dev_Anne_Marie

XLDnaute Occasionnel

VBA_dev_Anne_Marie

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Discussions similaires