Appliquer même filtre sur plusieurs feuille
zoumx13
-
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
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.
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:
- Appliquer même filtre sur plusieurs feuille
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Filtre whatsapp - Accueil - Messagerie instantanée
- Bruler feuille de laurier - Guide
- Comment imprimer en a5 sur une feuille a4 - Guide
- Feuille de pointage excel - Télécharger - Tableur
1 réponse
Bonjour,
Tu peux le mettre dans Thisworkbook à l'activation de la feuille :
Sinon, tu fais la même chose sur une boucle de feuilles
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
