XL 2010 macro appliqquée sur plusieurs feuilles

Iznogood1 à dit:

Bonjour

Code:

Sub filtre()

  Dim ListeDesFeuilles As Variant
  Dim feuille As Variant
  ListeDesFeuilles = Array("salades+wrap", "chaud+soupes", " desserts")

  For Each feuille In ListeDesFeuilles
  For Ligne = 3 To 300
  Select Case (UCase(Worksheets(feuille).Range("c" & Ligne).Value))
  Case "0"
  Worksheets(feuille).Range("c" & Ligne).EntireRow.Hidden = True
  Case Else
  End Select
  Next Ligne
  Next feuille

End Sub

Je te laisse compléter le contenu du tableau ListeDesFeuilles
Attention, les valeurs doivent correspondre exactement aux noms de tes onglets
C'est pourquoi il y a un espace en premier caractère dans " desserts"

Cliquez pour agrandir...