KutoolsforOffice — Une solution unique, cinq outils puissants.Faire plus avec moins d'efforts.Soldes de mars : 20 % de réduction

Comment supprimer les filtres de toutes les feuilles du classeur actuel dans Excel ?

AuteurSiluvia Date de modification

Lorsque vous travaillez avec un Classeur Excel contenant plusieurs feuilles de calcul, il est courant d’utiliser des filtres sur différentes feuilles afin d’analyser efficacement les données. Toutefois, après avoir appliqué des filtres sur plusieurs feuilles, vous pourriez avoir besoin ultérieurement de supprimer tous ces filtres afin de rétablir vos feuilles dans leur état initial, non filtré. Effectuer cette opération manuellement — en passant d’une feuille à l’autre pour effacer les filtres individuellement — prend non seulement du temps, mais augmente également le risque d’oublier une feuille.

Cette situation se présente fréquemment lorsque vous recevez un classeur de collègues ou que vous consolidez des données issues de plusieurs équipes, et que vous souhaitez vous assurer que tous les filtres sont supprimés avant d’entamer votre propre analyse ou de préparer des rapports à partager. Gérer chaque feuille manuellement s’avère vite inefficace, surtout avec des classeurs volumineux comportant des dizaines de feuilles. Disposer d’une méthode rapide et fiable pour effacer tous les filtres de chaque feuille de votre classeur actuel vous fait gagner un temps précieux, réduit considérablement les efforts requis et minimise le risque d’omettre des données restées filtrées.

Voici une méthode simple et efficace pour y parvenir en seulement quelques étapes. Pour découvrir des techniques plus avancées ou alternatives — comme l’utilisation de formules ou de compléments Excel — consultez les solutions supplémentaires proposées à la fin de cet article.

Effacer les filtres de toutes les feuilles de calcul de Classeur actuel à l’aide d’un code VBA


Effacer les filtres de toutes les feuilles de calcul de Classeur actuel à l’aide d’un code VBA

Pour supprimer efficacement tous les filtres appliqués à chaque feuille de votre classeur actuel, utilisez un script VBA. Cette solution s’adresse aux utilisateurs familiarisés avec l’exécution de macros dans Excel et se révèle particulièrement performante pour les classeurs intégrant divers types de données structurées.

Avant de commencer, veuillez enregistrer votre travail, car l’exécution du code VBA apportera des modifications massives à votre classeur.

1. Dans le classeur où vous souhaitez supprimer les filtres, appuyez simultanément sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications. Si vous utilisez Excel pour la première fois, vous devrez peut-être activer l’onglet Développeur depuis le menu Options.

2. Dans la fenêtre Microsoft Visual Basic pour Applications ouverte, accédez à Insertion > Module pour créer un nouveau module. Copiez ensuite le script VBA ci-dessous et collez-le dans la fenêtre du module. Reportez-vous à la capture d’écran suivante comme référence :

Code VBA : Effacer les filtres de toutes les feuilles de calcul de Classeur actuel

Sub Clear_fiter()
'Updated by Extendoffice 20250902
    Dim xAF As AutoFilter
    Dim xFs As Filters
    Dim xLos As ListObjects
    Dim xLo As ListObject
    Dim xRg As Range
    Dim xWs As Worksheet
    Dim xIntC, xF1, xF2, xCount As Integer
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each xWs In Application.Worksheets
        xWs.ShowAllData
        Set xLos = xWs.ListObjects
        xCount = xLos.Count
        For xF1 = 1 To xCount
         Set xLo = xLos.Item(xF1)
         Set xRg = xLo.Range
         xIntC = xRg.Columns.Count
         For xF2 = 1 To xIntC
            xLo.Range.AutoFilter Field:=xF2
         Next
        Next
    Next
    Application.ScreenUpdating = True
End Sub

copiez et collez le code dans le module

3. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour lancer le code. Dès son exécution, tous les filtres — qu’il s’agisse de filtres standards ou de filtres associés à des tableaux — présents sur toutes les feuilles de votre classeur actuel seront immédiatement supprimés.

Assurez-vous d’avoir enregistré votre classeur avant d’exécuter des macros, car les actions effectuées via VBA ne peuvent pas être annulées avec Ctrl + Z.


Articles associés:

Meilleurs outils de productivité Office

🤖Kutools IA Aide: Révolutionnez Analyse des données grâce à :Exécution intelligente   |  Générez du code|  Créez formules personnalisées  |  Analysez des données et générez des graphiques|  Appelez Fonctions améliorées
Fonctionnalités populaires:Rechercher, mettre en surbrillance ou Marquer les doublons   |  Supprimer les lignes vides   |  Combinez les colonnes ou cellules sans perdre de données   |   Arrondi sans utiliser de formule...
Super RECHERCHEV:RechercheValeurs avec critères multiples  |  RechercheValeurs avec valeurs multiples  |   RechercheValeurs dans plusieurs feuilles   |   Correspondance floue....
Liste déroulante avancée:Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple....
Gestionnaire de colonnes:Ajouter un nombre précis de colonnes|Déplacer des colonnes|Basculer la visibilité des colonnes masquées|Comparer des plages et des colonnes...
Fonctionnalités vedettes:Mise au point de la grille   |  Vue de conception   |Barre de formule améliorée   | Gestionnaire de classeurs et de feuilles   |  Bibliothèque de ressources(Texte automatique)|  Sélecteur de date   |  Consolider les feuilles de calcul  |  Chiffrer/Déchiffrer les cellules   | Envoyer des e-mails par liste   |  Super Filtre   |   Filtre spécial(Filtrer les cellules avec une police en gras/italique/barré...) ...
… et bien plus encore… et plus encore:(,)Supprimer des caractères spécifiques, ...)|   50+Typesde graphiques(, ...)|   40+ Formules pratiques(Calculer l'âge en fonction de la date de naissance, ...)|   19 Outils d’insertion(,Insérer une image depuis un chemin , ...)|   de conversion (Convertir en mots,Conversion de devises, ...)|Fusionner et scinder   (Fusion avancée des lignes,Diviser les cellules , ...)|, ...)   |
Utilisez Kutools dans la langue de votre choix – disponible en anglais, espagnol, allemand, français, chinois et 40+ autres langues !

Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...


Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile

  • Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !

Tous les compléments Kutools. Un seul installateur

Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.

ExcelWordOutlookTabsPowerPoint
  • Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
  • Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
  • Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
  • Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
  • Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels