XL 2010 macro appliqquée sur plusieurs feuilles

auloin · 29 Novembre 2016

bonjour à tous

après plusieurs recherches je m'adresse à vous
j'ai crée un classeur avec deux macros qui s'appliquent sur les feuilles

sandwichs+sandwichs chaud
salades+wrap
chaud+soupes
desserts
sorties brasserie
sorties traiteur
surgelé
frais et sec

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

merci par avance de votre aide

Iznogood1 · 29 Novembre 2016

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"

auloin · 29 Novembre 2016

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"

auloin · 29 Novembre 2016

merci pour la réponse ultra rapide
je teste

auloin · 29 Novembre 2016

ça marche

merci encore
dernière question comment je peux "defiltrer" l'ensemble avec 1 seul module?

Iznogood1 · 29 Novembre 2016

De la même manière

Code:

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

auloin · 29 Novembre 2016

super

merci beaucoup

tout fonctionne

XL 2010 macro appliqquée sur plusieurs feuilles

auloin

XLDnaute Junior

Pièces jointes

Iznogood1

XLDnaute Impliqué

auloin

XLDnaute Junior

auloin

XLDnaute Junior

auloin

XLDnaute Junior

Iznogood1

XLDnaute Impliqué

auloin

XLDnaute Junior

Discussions similaires