je suis obligé de cliquer sur les boutons de chaque feuille
j'aimerai un code qui me permettrait cliquant sur "filtre 1" et "stop fitre" (onglets prod brasserie et prod traiteur)
d'appliquer les macros sur les feuilles nommées ci dessus
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"
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"
Sub remettre()
Dim ListeDesFeuilles As Variant
Dim feuille As Variant
ListeDesFeuilles = Array("salades+wrap", "chaud+soupes", " desserts")
For Each feuille In ListeDesFeuilles
Worksheets(feuille).Range("$A$1:$C$133").AutoFilter Field:=3
Next feuille
End Sub