Filtrer plusieurs onglets en même temps

Le
Eric549
bonjour à tous

J'ai un fichier excel comprenant 12 onglets (1 par mois)

Chaque onglet la même structure et des filtres (Via le menu Données
Filtrer)

Comment pour tous les onglets en même temps , appliquer le filtre
suivant

Sheets(Array("Fevrier_2010", "Mars_2010 ", "Avril_2010", "Mai_2010",
"Juin_2010", _
"Juillet_2010", "Aout_2010", "Septembre_2010", "Octobre_2010",
"Novembre_2010", _
"Decembre_2010")).Select


Selection.AutoFilter Field:=1, Criteria1:="3340"


merci pour vos réponses
René
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #21426131
Bonjour.

Dim Feuilles, Sh As Worksheet
Feuilles = Sheets(Array("Fevrier_2010", "Mars_2010 ", "Avril_2010",
"Mai_2010", "Juin_2010", _
"Juillet_2010", "Aout_2010", "Septembre_2010", "Octobre_2010",
"Novembre_2010", _
"Decembre_2010"))
For Each Sh In Feuilles
Sh.plage.AutoFilter Field:=1, Criteria1:="3340"
Next Sh

Daniel

bonjour à tous

J'ai un fichier excel comprenant 12 onglets (1 par mois)

Chaque onglet la même structure et des filtres (Via le menu Données
Filtrer)

Comment pour tous les onglets en même temps , appliquer le filtre
suivant

Sheets(Array("Fevrier_2010", "Mars_2010 ", "Avril_2010", "Mai_2010",
"Juin_2010", _
"Juillet_2010", "Aout_2010", "Septembre_2010", "Octobre_2010",
"Novembre_2010", _
"Decembre_2010")).Select


Selection.AutoFilter Field:=1, Criteria1:="3340"


merci pour vos réponses
René
LSteph
Le #21426181
Bonjour,
on filtre dans la feuille , une plage, supposons toujours incluse
depuis a1jusqu'à d1000
pas forcé d'énumérer exemple ici avec un select case pour traiter
tout sauf feuil4

Sub filtrtou()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
Select Case sh.Name
Case Is <> "Feuil4"
sh.[a1:d1000].AutoFilter field:=1, Criteria1:="toto"
End Select
Next
End Sub

--
LSteph

On 23 mar, 15:41, Eric549
bonjour à tous

J'ai un fichier excel comprenant 12 onglets (1 par mois)

Chaque onglet la même structure  et des filtres (Via le menu Donnée s
Filtrer)

Comment pour tous les onglets en même temps , appliquer le filtre
suivant

Sheets(Array("Fevrier_2010", "Mars_2010  ", "Avril_2010", "Mai_2010",
"Juin_2010", _
        "Juillet_2010", "Aout_2010", "Septembre_2010", "Octobre_2 010",
"Novembre_2010", _
        "Decembre_2010")).Select

        Selection.AutoFilter Field:=1, Criteria1:="3340"

merci pour vos réponses
René
Eric549
Le #21426621
On 23 mar, 16:43, LSteph
Bonjour,
on filtre dans la feuille , une plage, supposons toujours incluse
depuis a1jusqu'à d1000
pas forcé  d'énumérer  exemple ici avec un select case pour tra iter
tout sauf feuil4

Sub filtrtou()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
Select Case sh.Name
Case Is <> "Feuil4"
sh.[a1:d1000].AutoFilter field:=1, Criteria1:="toto"
End Select
Next
End Sub

--
LSteph

On 23 mar, 15:41, Eric549
> bonjour à tous

> J'ai un fichier excel comprenant 12 onglets (1 par mois)

> Chaque onglet la même structure  et des filtres (Via le menu Donn ées
> Filtrer)

> Comment pour tous les onglets en même temps , appliquer le filtre
> suivant

> Sheets(Array("Fevrier_2010", "Mars_2010  ", "Avril_2010", "Mai_2010",
> "Juin_2010", _
>         "Juillet_2010", "Aout_2010", "Septembre_2010", "Octobre _2010",
> "Novembre_2010", _
>         "Decembre_2010")).Select

>         Selection.AutoFilter Field:=1, Criteria1:="3340"

> merci pour vos réponses
> René



merci pour ces réponses précises et rapide
c'est exactement ce que je recherchais
bonne soirée à tous

i
Publicité
Poster une réponse
Anonyme