Note: The other languages of the website are Google-translated. Back to English

 Comment appliquer le même filtre à plusieurs feuilles dans Excel?

Il peut être facile pour nous d'appliquer la fonction Filtrer pour filtrer les données dans une feuille de calcul, mais, parfois, vous devrez peut-être filtrer sur plusieurs feuilles de calcul qui ont un formatage de données commun avec les mêmes critères de filtre. Les filtrer un par un perdra beaucoup de temps, ici, je peux vous présenter un moyen simple de le résoudre à la fois.

Appliquer le même filtre à plusieurs feuilles de calcul avec le code VBA


flèche bleue bulle droite Appliquer le même filtre à plusieurs feuilles de calcul avec le code VBA

Par exemple, j'ai quatre feuilles de calcul car la capture d'écran suivante doit être filtrée avec les mêmes critères que le produit = KTE à la fois.

doc filtre plusieurs feuilles 1

Il n'y a aucun moyen direct de filtrer les données dans plusieurs feuilles dans Excel, mais le code VBA suivant peut vous aider à terminer ce travail, procédez comme suit:

1. Maintenez le ALT + F11 clés, puis il ouvre le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: appliquez 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. Et puis appuyez sur F5 clé pour exécuter ce code, tous les produits de KTE ont été filtrés dans toutes les feuilles de calcul à la fois, voir capture d'écran:

doc filtre plusieurs feuilles 2

Notes: Dans le code ci-dessus, dans ce xWs.Range ("A1"). Filtre automatique 1, "= KTE" scénario, A1 et = KTE indique la colonne et les critères sur lesquels vous souhaitez filtrer, le numéro 1 est le numéro de colonne sur lequel vous avez filtré, vous pouvez les modifier selon vos besoins. Par exemple, si vous souhaitez filtrer l'ordre supérieur à 50, il vous suffit de modifier ce script comme suit: xWs.Range ("B1"). Filtre automatique 2, "> 50".


Filtrez les données en fonction de plusieurs critères ou d'une autre condition spécifique, telle que la longueur du texte, la casse, etc.

Kutools pour Excel's Super filtre fonctionnalité est un utilitaire puissant, vous pouvez appliquer cette fonctionnalité pour terminer les opérations suivantes:

  • Filtrer les données avec plusieurs critères; Filtrer les données par longueur de texte;
  • Filtrer les données par majuscules / minuscules; Filtrer la date par année / mois / jour / semaine / trimestre

doc-super-filtre1

Kutools pour Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer 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 réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (41)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
comment appliquer cette formule de filtre : à une plage de feuilles ? J'ai un classeur qui contient des données sur les 5 premières feuilles, et le classeur contient 200 feuilles. J'ai seulement besoin que le filtre soit appliqué à la feuille 6-200. Sous apply_autofilter_across_worksheets() 'Mettre à jour par Extendoffice 20160623 Dim xWs As Worksheet On Error Resume Next For Each xWs In Worksheets xWs.Range("A1").AutoFilter 1, "=KTE" Next End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Sub apply_autofilter_across_worksheets() Dim J As integer On Error Resume Next For J = 6 to Worksheets(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Next End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Cher, je veux filtrer plus d'une valeur, j'ai utilisé ce xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" et cela a fonctionné mais quand je augmentez les valeurs souhaitées à > 2 une erreur se produit. cette commande j'utilise xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" merci,
Ce commentaire a été minimisé par le modérateur sur le site
lors du filtrage d'un seul mot dans plusieurs feuilles, il n'affiche pas les données filtrées ... toutes les données sont masquées. Veuillez résoudre ce problème.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,


Mes données sont dans la colonne E et lorsque j'applique ce filtre avec Range ("E1"), il filtre toujours la colonne A


Comment puis-je résoudre les problèmes ?
Merci
Ce commentaire a été minimisé par le modérateur sur le site
Il vous suffit d'écrire le numéro de colonne dans AutoFilter, dans ce cas : xWs.Range("E1").AutoFilter 5,
Ce commentaire a été minimisé par le modérateur sur le site
JE VOUS REMERCIE!!!!
Ce commentaire a été minimisé par le modérateur sur le site
SUPPRIMER LA COLONNE A LOL
Ce commentaire a été minimisé par le modérateur sur le site
Comment exécuter si le filtre est sur une colonne différente sur chaque feuille ?
Ce commentaire a été minimisé par le modérateur sur le site
Comment pouvez-vous utiliser le résultat du filtre automatique pour définir le filtre pour chaque autre feuille au lieu d'utiliser = (nom spécifique)
Ce commentaire a été minimisé par le modérateur sur le site
Puis-je l'utiliser pour filtrer les tableaux croisés dynamiques dans plusieurs feuilles si tous les tableaux croisés dynamiques proviennent de la même source de données et sont configurés à l'aide des mêmes critères ?
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il une option pour filtrer par couleurs?
Ce commentaire a été minimisé par le modérateur sur le site
Salut, Mahesh,
Si vous souhaitez filtrer les données par couleur, peut-être que les deux articles suivants pourront vous aider ! N'hésitez pas à les consulter, j'espère que cela pourra vous aider !

https://www.extendoffice.com/documents/excel/912-excel-filter-by-cell-color.html
https://www.extendoffice.com/documents/excel/3383-excel-filter-by-multiple-colors.html
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,


Comment cela fonctionne-t-il si la colonne Produit est présentée à différents endroits dans d'autres feuilles ?


Dans folio1, c'est A1 dans folio2 c'est dans B1 et dans folio3 c'est encore A1 ?

Merci,
Monika
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de modifier la partie "=KTE" pour chaque feuille avec un filtre contenant basé sur le nom de la feuille ?
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour le code !! existe-t-il un moyen de modifier le "=KTE" pour utiliser une valeur d'une liste ou d'une liste déroulante ?
Ce commentaire a été minimisé par le modérateur sur le site
HI, le super filtre sur l'ensemble du classeur s'applique-t-il automatiquement chaque fois qu'il y a une mise à jour du fichier ?
Ce commentaire a été minimisé par le modérateur sur le site
Pouvons-nous utiliser un nom de cellule comme Product au lieu de A1 dans : xWs.Range("A1").AutoFilter 1, "=KTE"
J'ai une colonne différente et certains noms viennent dans une colonne différente.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai utilisé un filtre dans chaque feuille. Et je veux changer le numéro de 1 2 3 en série dans chaque feuille après le filtre.


S'il vous plaît laissez-moi savoir si vous avez le code vba pour cela
Ce commentaire a été minimisé par le modérateur sur le site
Comment utiliser la fonction "Filtrer entre", pour les mêmes feuilles multiples ?

(Exemple : plage horaire)
Ce commentaire a été minimisé par le modérateur sur le site
comment éliminer les lignes filtrées ?
Ce commentaire a été minimisé par le modérateur sur le site
Cher,

Comment filtrer avec plusieurs conditions ?
Par exemple, je souhaite filtrer dans l'ordre supérieur à 50 mais uniquement les produits KTE.

Merci d'avance.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Pedjaa,
Pour filtrer plusieurs feuilles en fonction de deux conditions, veuillez appliquer le code suivant :
Sous apply_autofilter_across_worksheets()

'Mettre à jour par Extendoffice

Feuille de travail Dim xWs As

On Error Resume Next

Pour chaque xWs dans les feuilles de travail

Avec xWs.Range("A1")

.AutoFilter Field:=1, Criteria1:="KTE" 'La colonne A est égale à "KTE"

.AutoFilter Field:=2, Criteria1:=">500" 'Colonne B supérieure à 500

Terminer par

Suivant

End Sub

S'il vous plaît essayez, j'espère que cela peut vous aider!
Ce commentaire a été minimisé par le modérateur sur le site
même si je remplace A1 par G1, ça pique le filtre sur la colonne A1
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Tan,
Vous remplacez simplement A1 par G1, en même temps, vous devez changer le numéro de colonne 1 en numéro de colonne 7, comme ci-dessous :
xWs.Range("G1").AutoFilter 7, "=KTE"
S'il vous plaît essayez, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
est-il possible de filtrer en fonction du nom de la colonne plutôt que du nombre (car mes données se trouvent dans différentes colonnes dans les différentes feuilles de calcul) ?
MerciManuela
Ce commentaire a été minimisé par le modérateur sur le site
Je veux filtrer avec la même condition "KTE", mais s'il n'apparaît pas dans une feuille, aucune donnée ne s'affiche.
Ce commentaire a été minimisé par le modérateur sur le site
Salut ,
Je veux des critères de filtrage basés sur une valeur de cellule au lieu de "KTE" est-ce possible ???
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, Hemraj, Pour filtrer les données en fonction d'une valeur de cellule spécifique au lieu du texte fixe, veuillez appliquer le code ci-dessous : Sous apply_autofilter_across_worksheets()
'Mettre à jour par Extendoffice
Feuille de travail Dim xWs As
On Error Resume Next
Pour chaque xWs dans les feuilles de travail
xWs.Range("A1").AutoFilter 1, Sheet1.Range("E2")
Suivant
End SubNotes: Veuillez changer le Sheet1 et E2 dans ce Sheet1.Range("E2") script à votre propre valeur de feuille et de cellule.Veuillez essayer, j'espère que cela peut vous aider!
Ce commentaire a été minimisé par le modérateur sur le site
Salut Skyyang,
Merci pour votre soutien précieux et fabuleux, j'ai essayé d'utiliser les mêmes formules mais cela n'a pas fonctionné pour ce qui pourrait en être la raison. Voici le code que j'utilise pour ma feuille Excel.
Sous apply_autofilter_across_worksheets()
'Mettre à jour par Extendoffice
Feuille de travail Dim xWs As
On Error Resume Next
Pour chaque xWs dans les feuilles de travail
xWs.Range("A1").AutoFilter 1, Sheet2.Range("C4")
Suivant
End Sub
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL