Filtre sur plusieurs feuilles

Le 24/08/2022 à 12:24

Bonjour,

Est-il possible d'appliquer un filtre sur plusieurs feuilles à la fois?

Cordialement,

Le 24/08/2022 à 13:03

Bonjour,

Je Penses qu'il faut passer par du VBA.

Le 24/08/2022 à 14:12

Rebonjour,

Je penses aussi, mais j'arrive pas à trouver la bonne démarche.

Le 25/08/2022 à 16:26

Bonjour,

J'ai arrivé à trouver la solution :

Sub apply_filter()

If ThisWorkbook.Sheets("Résultat Par Chargé").Cells(47, 3).Value = "(All)" Then
ThisWorkbook.Sheets("Charge Salariale").Range("A2:P2000").AutoFilter Field:=7
Else
ThisWorkbook.Sheets("Charge Salariale").Range("A2:P2000").AutoFilter Field:=7, Criteria1:=ThisWorkbook.Sheets("Résultat Par Chargé").Cells(47, 3).Value
End If

If ThisWorkbook.Sheets("Résultat Par Chargé").Cells(49, 5).Value = "(All)" Then
ThisWorkbook.Sheets("Charge Salariale").Range("A2:P2000").AutoFilter Field:=9
Else
ThisWorkbook.Sheets("Charge Salariale").Range("A2:P2000").AutoFilter Field:=9, Criteria1:=ThisWorkbook.Sheets("Résultat Par Chargé").Cells(49, 5).Value
End If

Le problème c'est lorsque je passe à d'autres feuilles parfois je trouve une erreur "Subscript out of range"?