Filtrer tous sauf

Le
Eric549
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
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
michdenis
Le #21461951
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"
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
Le #21464711
On 29 mar, 19:45, "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].AutoFilt er Field:=3
                      shGlobal.[a12:Am1000].AutoFil ter Field:=1
      End Select
Next
'-----------------------------------

"Eric549"
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
Publicité
Poster une réponse
Anonyme