Appliquer même filtre sur plusieurs feuille

zoumx13 -  
gbinforme Messages postés 14930 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.

1 réponse

  1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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