XL 2019 VBA : Enlever les filtres

[VBA_dev_Anne_Marie]

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 :

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

Mais cela ne marche pas.

Merci pour votre aide

 

[Phil69970]

Bonjour @VBA_dev_Anne_Marie

Essaye ceci:

AutoFilterMode = False

Merci de ton retour

@Phil69970

 

[VBA_dev_Anne_Marie]

Bonjour @VBA_dev_Anne_Marie

Essaye ceci:



Merci de ton retour

@Phil69970

 

[VBA_dev_Anne_Marie]

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]

Bonjour,

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]

Bonjour TFB

Anne Marie :

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]

Bonjour,


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

 

[VBA_dev_Anne_Marie]

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

 

[TooFatBoy]

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]

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]

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]

Bonjour @VBA_dev_Anne_Marie

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]

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]

Bonjour @VBA_dev_Anne_Marie

Merci de ton retour

@Phil69970

 

[VBA_dev_Anne_Marie]

Bonjour @VBA_dev_Anne_Marie



@Phil69970

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