J'aimerai filtrer toutes les feuilles du classeur
sauf les feuilles suivantes :
R=E9cap_IDE et Recap_AS et Recap_Global
avec le code suivant
toutes les feuilles sont filtr=E9es
For Each shGlobal In ActiveWorkbook.Sheets
Select Case shGlobal.Name
Case Is <> "Recap_ASH", "R=E9cap_IDE", "Recap_AS",
"Recap_Global"
shGlobal.[a12:Am1000].AutoFilter Field:=3D3
shGlobal.[a12:Am1000].AutoFilter Field:=3D1
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
michdenis
Bonjour,
Tu ne pourras jamais filtrer tes feuilles, si chaque filtre que tu appliques ne contient pas de critère comme dans cette ligne de code : shGlobal.[a12:Am1000].AutoFilter Field:=3
'----------------------------------- For Each shGlobal In ActiveWorkbook.Sheets Select Case shGlobal.Name Case Is = "Recap_ASH", "Récap_IDE", "Recap_AS", "Recap_Global" Case Else shGlobal.[a12:Am1000].AutoFilter Field:=3 shGlobal.[a12:Am1000].AutoFilter Field:=1 End Select Next '-----------------------------------
"Eric549" a écrit dans le message de groupe de discussion :
bonjour à tous
J'aimerai filtrer toutes les feuilles du classeur sauf les feuilles suivantes : Récap_IDE et Recap_AS et Recap_Global
avec le code suivant toutes les feuilles sont filtrées
For Each shGlobal In ActiveWorkbook.Sheets Select Case shGlobal.Name Case Is <> "Recap_ASH", "Récap_IDE", "Recap_AS", "Recap_Global" shGlobal.[a12:Am1000].AutoFilter Field:=3 shGlobal.[a12:Am1000].AutoFilter Field:=1
End Select
merci de vos réponses
Bonjour,
Tu ne pourras jamais filtrer tes feuilles, si chaque filtre que
tu appliques ne contient pas de critère comme dans cette ligne
de code : shGlobal.[a12:Am1000].AutoFilter Field:=3
'-----------------------------------
For Each shGlobal In ActiveWorkbook.Sheets
Select Case shGlobal.Name
Case Is = "Recap_ASH", "Récap_IDE", "Recap_AS", "Recap_Global"
Case Else
shGlobal.[a12:Am1000].AutoFilter Field:=3
shGlobal.[a12:Am1000].AutoFilter Field:=1
End Select
Next
'-----------------------------------
"Eric549" <qmike549@gmail.com> a écrit dans le message de groupe de discussion :
2e38619c-71e9-4cb7-9800-ce16bf782939@o30g2000yqb.googlegroups.com...
bonjour à tous
J'aimerai filtrer toutes les feuilles du classeur
sauf les feuilles suivantes :
Récap_IDE et Recap_AS et Recap_Global
avec le code suivant
toutes les feuilles sont filtrées
For Each shGlobal In ActiveWorkbook.Sheets
Select Case shGlobal.Name
Case Is <> "Recap_ASH", "Récap_IDE", "Recap_AS",
"Recap_Global"
shGlobal.[a12:Am1000].AutoFilter Field:=3
shGlobal.[a12:Am1000].AutoFilter Field:=1
Tu ne pourras jamais filtrer tes feuilles, si chaque filtre que tu appliques ne contient pas de critère comme dans cette ligne de code : shGlobal.[a12:Am1000].AutoFilter Field:=3
'----------------------------------- For Each shGlobal In ActiveWorkbook.Sheets Select Case shGlobal.Name Case Is = "Recap_ASH", "Récap_IDE", "Recap_AS", "Recap_Global" Case Else shGlobal.[a12:Am1000].AutoFilter Field:=3 shGlobal.[a12:Am1000].AutoFilter Field:=1 End Select Next '-----------------------------------
"Eric549" a écrit dans le message de groupe de discussion :
bonjour à tous
J'aimerai filtrer toutes les feuilles du classeur sauf les feuilles suivantes : Récap_IDE et Recap_AS et Recap_Global
avec le code suivant toutes les feuilles sont filtrées
For Each shGlobal In ActiveWorkbook.Sheets Select Case shGlobal.Name Case Is <> "Recap_ASH", "Récap_IDE", "Recap_AS", "Recap_Global" shGlobal.[a12:Am1000].AutoFilter Field:=3 shGlobal.[a12:Am1000].AutoFilter Field:=1
End Select
merci de vos réponses
Eric549
On 29 mar, 19:45, "michdenis" wrote:
Bonjour,
Tu ne pourras jamais filtrer tes feuilles, si chaque filtre que tu appliques ne contient pas de critère comme dans cette ligne de code : shGlobal.[a12:Am1000].AutoFilter Field:=3
'----------------------------------- For Each shGlobal In ActiveWorkbook.Sheets Select Case shGlobal.Name Case Is = "Recap_ASH", "Récap_IDE", "Recap _AS", "Recap_Global" Case Else shGlobal.[a12:Am1000].AutoFilt er Field:=3 shGlobal.[a12:Am1000].AutoFil ter Field:=1 End Select Next '-----------------------------------
"Eric549" a écrit dans le message de groupe de dis cussion :
bonjour à tous
J'aimerai filtrer toutes les feuilles du classeur sauf les feuilles suivantes : Récap_IDE et Recap_AS et Recap_Global
avec le code suivant toutes les feuilles sont filtrées
For Each shGlobal In ActiveWorkbook.Sheets Select Case shGlobal.Name Case Is <> "Recap_ASH", "Récap_IDE", "Recap_AS", "Recap_Global" shGlobal.[a12:Am1000].AutoFilter Field:=3 shGlobal.[a12:Am1000].AutoFilter Field:=1
End Select
merci de vos réponses
bonjour à tous michdenis pour cette solution, qui fonctionne à merveille bonne journée à tous
On 29 mar, 19:45, "michdenis" <michde...@hotmail.com> wrote:
Bonjour,
Tu ne pourras jamais filtrer tes feuilles, si chaque filtre que
tu appliques ne contient pas de critère comme dans cette ligne
de code : shGlobal.[a12:Am1000].AutoFilter Field:=3
'-----------------------------------
For Each shGlobal In ActiveWorkbook.Sheets
Select Case shGlobal.Name
Case Is = "Recap_ASH", "Récap_IDE", "Recap _AS", "Recap_Global"
Case Else
shGlobal.[a12:Am1000].AutoFilt er Field:=3
shGlobal.[a12:Am1000].AutoFil ter Field:=1
End Select
Next
'-----------------------------------
"Eric549" <qmike...@gmail.com> a écrit dans le message de groupe de dis cussion :
2e38619c-71e9-4cb7-9800-ce16bf782...@o30g2000yqb.googlegroups.com...
bonjour à tous
J'aimerai filtrer toutes les feuilles du classeur
sauf les feuilles suivantes :
Récap_IDE et Recap_AS et Recap_Global
avec le code suivant
toutes les feuilles sont filtrées
For Each shGlobal In ActiveWorkbook.Sheets
Select Case shGlobal.Name
Case Is <> "Recap_ASH", "Récap_IDE", "Recap_AS",
"Recap_Global"
shGlobal.[a12:Am1000].AutoFilter Field:=3
shGlobal.[a12:Am1000].AutoFilter Field:=1
End Select
merci de vos réponses
bonjour à tous
michdenis pour cette solution, qui fonctionne à merveille
bonne journée à tous
Tu ne pourras jamais filtrer tes feuilles, si chaque filtre que tu appliques ne contient pas de critère comme dans cette ligne de code : shGlobal.[a12:Am1000].AutoFilter Field:=3
'----------------------------------- For Each shGlobal In ActiveWorkbook.Sheets Select Case shGlobal.Name Case Is = "Recap_ASH", "Récap_IDE", "Recap _AS", "Recap_Global" Case Else shGlobal.[a12:Am1000].AutoFilt er Field:=3 shGlobal.[a12:Am1000].AutoFil ter Field:=1 End Select Next '-----------------------------------
"Eric549" a écrit dans le message de groupe de dis cussion :
bonjour à tous
J'aimerai filtrer toutes les feuilles du classeur sauf les feuilles suivantes : Récap_IDE et Recap_AS et Recap_Global
avec le code suivant toutes les feuilles sont filtrées
For Each shGlobal In ActiveWorkbook.Sheets Select Case shGlobal.Name Case Is <> "Recap_ASH", "Récap_IDE", "Recap_AS", "Recap_Global" shGlobal.[a12:Am1000].AutoFilter Field:=3 shGlobal.[a12:Am1000].AutoFilter Field:=1
End Select
merci de vos réponses
bonjour à tous michdenis pour cette solution, qui fonctionne à merveille bonne journée à tous