Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 VBA : Enlever les filtres

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

VBA_dev_Anne_Marie

XLDnaute Occasionnel
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
 
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
 
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
 
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 !
 
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
 

Pièces jointes

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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
718
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
234
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
80
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…