Comment appliquer le même filtre à plusieurs feuilles dans Excel ?
Il peut être facile pour nous d'appliquer la fonction Filtre pour filtrer les données dans une feuille de calcul, mais parfois, vous devrez peut-être filtrer sur plusieurs feuilles de calcul ayant un formatage des données commun avec les mêmes critères de filtre. Filtrer chacune individuellement prendra beaucoup de temps. Ici, je peux vous présenter une méthode simple pour résoudre ce problème en une seule fois.
Appliquer le même filtre à plusieurs feuilles de calcul avec du code VBA
Appliquer le même filtre à plusieurs feuilles de calcul avec du code VBA
Par exemple, j'ai quatre feuilles de calcul comme dans la capture d'écran ci-dessous qui doivent être filtrées avec les mêmes critères : Produit = KTE en une seule fois.
Il n'y a pas de moyen direct de filtrer des données dans plusieurs feuilles dans Excel, mais le code VBA suivant peut vous aider à accomplir cette tâche. Veuillez procéder comme suit :
1. Maintenez enfoncées les touches ALT + F11, puis cela ouvre la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, et collez le code suivant dans la fenêtre Module.
Code VBA : Appliquer le même filtre à plusieurs feuilles de calcul :
Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
Dim xWs As Worksheet
On Error Resume Next
For Each xWs In Worksheets
xWs.Range("A1").AutoFilter 1, "=KTE"
Next
End Sub
3. Puis appuyez sur la touche F5 pour exécuter ce code ; tous les produits KTE ont été filtrés dans toutes les feuilles de calcul en une seule fois, voir la capture d'écran :
Remarque : Dans le code ci-dessus, dans ce script xWs.Range("A1").AutoFilter 1, "=KTE", A1 et =KTE indiquent la colonne et les critères selon lesquels vous souhaitez filtrer, le chiffre 1 est le numéro de la colonne que vous avez filtrée, vous pouvez les modifier selon vos besoins. Par exemple, si vous voulez filtrer les commandes supérieures à 50, il vous suffit de modifier ce script comme suit : xWs.Range("B1").AutoFilter 2, ">50".
Filtrer les données selon plusieurs critères ou d'autres conditions spécifiques, telles que par longueur de texte, par sensibilité à la casse, etc. La fonction Super Filtre de Kutools pour Excel est un outil puissant, vous pouvez utiliser cette fonctionnalité pour effectuer les opérations suivantes :
Kutools pour Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation pendant 30 jours. Téléchargez et essayez gratuitement dès maintenant ! |
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels