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".