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
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
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
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
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
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
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" <qmike549@gmail.com> a écrit dans le message de groupe de discussion :
d2532dc9-4961-4aa8-9026-5086210f46f6@b7g2000yqd.googlegroups.com...
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
'---------------------------------- 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
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
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
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
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
On 23 mar, 21:48, "Benoît Marchand [Benead]" <benead.foru...@free.fr>
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
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