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 tous sauf

Filtrer tous sauf

2 réponses
Avatar
Eric549
bonjour =E0 tous

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

End Select

merci de vos r=E9ponses
Signaler un problème avec ce contenu

2 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
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
Avatar
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