Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Filtrer plusieurs onglets en même temps

Filtrer plusieurs onglets en même temps

3 réponses
Avatar
Eric549
bonjour =E0 tous

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

Chaque onglet la m=EAme structure et des filtres (Via le menu Donn=E9es
Filtrer)

Comment pour tous les onglets en m=EAme 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:=3D1, Criteria1:=3D"3340"


merci pour vos r=E9ponses
Ren=E9
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
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é
Avatar
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 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 wrote:
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é
Avatar
Eric549
On 23 mar, 16:43, LSteph wrote:
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 wrote:

> 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