Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Filtre sur tous les onglets sauf deux onglets

Filtre sur tous les onglets sauf deux onglets

4 réponses
Avatar
Eric549
bonjour
je remercie encore le personne qui m'a donn=E9 le code suivant
Sub filtrtou()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
Select Case sh.Name
Case Is <> "Feuil4"
sh.[a1:d1000].AutoFilter field:=3D1, Criteria1:=3D"toto"
End Select
Next
End Sub

mais comment peux-t-on dire toutes les feuilles sauf la Feuil4 et la
Feuil8

merci pour les r=E9ponses
bonne soir=E9e =E0 tous
Signaler un problème avec ce contenu

4 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
Benoît Marchand [Benead]
Bonsoir,

Case Is <> "Feuil4", "Feuil8"

A+
Benead
Excel 2000




Eric549 a écrit :
bonjour
je remercie encore le personne qui m'a donné le code suivant
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

mais comment peux-t-on dire toutes les feuilles sauf la Feuil4 et la
Feuil8

merci pour les réponses
bonne soirée à tous


Avatar
michdenis
Bonjour,

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



"Eric549" a écrit dans le message de groupe de discussion :

bonjour
je remercie encore le personne qui m'a donné le code suivant
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

mais comment peux-t-on dire toutes les feuilles sauf la Feuil4 et la
Feuil8

merci pour les réponses
bonne soirée à tous
Avatar
Benoît Marchand [Benead]
Désolé pour la réponse erronée, le plus simple est que tu traites tes
exceptions en ne mettant aucune action et donc les autres feuilles sont
filtrées comme cela :

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

Benead


Benoît Marchand [Benead] a écrit :
Bonsoir,

Case Is <> "Feuil4", "Feuil8"

A+
Benead
Excel 2000




Eric549 a écrit :
bonjour
je remercie encore le personne qui m'a donné le code suivant
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

mais comment peux-t-on dire toutes les feuilles sauf la Feuil4 et la
Feuil8

merci pour les réponses
bonne soirée à tous


Avatar
Eric549
On 23 mar, 21:48, "Benoît Marchand [Benead]"
wrote:
Désolé pour la réponse erronée, le plus simple est que tu traites tes
exceptions en ne mettant aucune action et donc les autres feuilles sont
filtrées comme cela :

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

Benead

Benoît Marchand [Benead] a écrit :

> Bonsoir,

> Case Is <> "Feuil4", "Feuil8"

> A+
> Benead
> Excel 2000

> Eric549 a écrit :
>> bonjour
>> je remercie encore le personne qui m'a donné le code suivant
>> 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

>> mais comment peux-t-on dire toutes les feuilles sauf la Feuil4 et la
>> Feuil8

>> merci pour les réponses
>> bonne soirée à tous



Bonjour
Merci à tous pour ces réponses
c'est trop cool

Bonne journée