Appliquer même filtre sur plusieurs feuille

Fermé
zoumx13 - 11 janv. 2017 à 09:28
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 11 janv. 2017 à 19:03
Bonjour,

Je souhaite réaliser un fichier excel contenant :

Colonne A : Nom
Colonne B : Prénom
Colonne C : Adresse
Colonne D : CP
Colonne E: Ville

J'ai besoin de 3 feuilles où les cinq premières colonnes de chaque feuille seraient identiques mais les suivantes sont différentes.
Si j'applique un filtre sur la colonne E (Ex: Seulement Marseille), je souhaiterai que le filtre s'applique également sur la feuille 2 et 3.

Les lignes de chaque feuille contiennent exactement les mêmes données.

Est-ce possible?

Merci d'avance pour vos indications.
A voir également:

1 réponse

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 709
11 janv. 2017 à 19:03
Bonjour,

Tu peux le mettre dans Thisworkbook à l'activation de la feuille :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.Range("$A$1:$F$400").AutoFilter Field:=5, Criteria1:="marseille"
End Sub

Sinon, tu fais la même chose sur une boucle de feuilles
Sub Macro1()
Dim feu As Long
For feu = 1 To Sheets.Count
    Sheets(feu).Range("$A$1:$F$4").AutoFilter Field:=5, Criteria1:="marseille"
Next feu
End Sub
0