Filtre Automatique Multi Feuilles

[MISTERJUNGLE]

Bonjour a tous,
Voila mon problème, je n'arrive pas a faire une macro pour élaborer un filtre automatique sur plusieurs feuilles identiques. le filtre est basé sur la feuille "LUC" en colonne "A" . filtre mensuel
il faudrait qu'en faisant mon choix "exemple JANVIER" le filtre se reporte sur les autres feuilles, sauf celles de "bilan compta et stat". en vous remerciant pour me mettre sur une piste car je n'y arrive pas malgré de nombreuses recherches

 

[MISTERJUNGLE]

Re : Filtre Automatique Multi Feuilles

Bonjour Le Forum,

personne pour m'aider, me donner une piste a explorer, un bout de code pour m'aiguiller
Merci a vous

 

[MISTERJUNGLE]

Re : Filtre Automatique Multi Feuilles

Re Le Forum,

Bon un petit morceau qui fonctionne sur 4 feuilles, est il possible de le simplifié pour les mois de fev. mars. avril. mai......
En vous remerciant par avance

 

[MISTERJUNGLE]

Re : Filtre Automatique Multi Feuilles

RE_

Désolé oubli du code.

Sub TRIMENSUEL()
'
' TRIMENSUEL Macro

ActiveSheet.Range("$A$3:$A$371").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "1/31/2014")
Sheets("PAUL").Select
ActiveSheet.Range("$A$3:$A$371").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "1/31/2014")
Sheets("ALICE").Select
ActiveSheet.Range("$A$3:$A$371").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "1/31/2014")
Sheets("MARC").Select
ActiveSheet.Range("$A$3:$A$371").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "1/31/2014")
End Sub

 

[MISTERJUNGLE]

Re : Filtre Automatique Multi Feuilles

Bonjour le Forum,
voila mon problème, je n'arrive pas a condenser cette macro que j’utilise a l'aide de boutons
pour les mois de "JANVIER" a "DÉCEMBRE" et cela sur 30 onglets
merci de votre aide

 

[gosselien]

Re : Filtre Automatique Multi Feuilles

Bonjour,

un essai ici

P.

 

[MISTERJUNGLE]

Re : Filtre Automatique Multi Feuilles

Bonjour Gosselien,
et merci pour cette solution, mais serait il possible de filtre uniquement par mois

 

[gosselien]

Re : Filtre Automatique Multi Feuilles

c'est à dire ?
si tu mets 01/01/14 et 31/01/14 tu as janvier non ?
ou alors tu ne veux mettre que 1 pour filtrer sur janvier ou 2 pour février ?

 

[MISTERJUNGLE]

Re : Filtre Automatique Multi Feuilles

Re_
oui c'est bien cela uniquement 1 pour Janvier, 2 pour fevrier
merci et bien vu

 

[gosselien]

Re : Filtre Automatique Multi Feuilles

bin....

là je sèche tiens , fin de journée, fin de semaine, j'ai des neurones KO

P.

 

[Philippe Tulliez]

Re : Filtre Automatique Multi Feuilles

Bonjour,
Voici une solution avec la méthode AdvancedFilter de l'objet Range
Description
Le classeur exemple au format xls contient six feuilles nommées respectivement Accueil, Nord, Sud, Est, Ouest & Param
La feuille nommée [Param] contient la liste des mois à sélectionner dans la feuille [Accueil]
Le filtre avancé d'excel fonctionne avec un minimum de deux zones, la zone des données et la zone des critères.
Le but dans cet exemple est de filtrer sur place les données de toutes les feuilles à l'exception de Accueil et Param
Les données
La plage de la zone des données des feuilles à filtrer commencent en cellule A4 et ont comme première ligne les étiquettes de colonnes.
Les critères
La place de la zone des critères sont dans les cellules A1 et A2.
Nous utiliserons un critère nommé ou calculé dont la formule est

=MOIS(A5)=MOIS(Accueil!B4)

Le filtre
Le code se trouve dans la procédure événementielle SheetActivate de l'objet ThisWorkbook
Cela signifie que le filtre s'effectue dès l'ouverture de la feuille. (On aurait pu utiliser une boucle dans la procédure événementielle Change de la feuille [Accueil])
Code de la procédure

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Select Case Trim(LCase(Sh.Name))
   Case "accueil", "param" ' Nom des feuilles à ne pas filtrer
   Case Else
    With Sh
    .Range("A4").CurrentRegion.AdvancedFilter xlFilterInPlace, .Range("A1:A2")
    End With
  End Select
End Sub

Classeur exemple

 

[gosselien]

Re : Filtre Automatique Multi Feuilles

Salut Philippe,
belle manière aussi ça
Sais tu comment, sur mon code, faire le filtre sur le mois ?

Où est mon erreur/manque ?

Merci

Patrick

 

[Philippe Tulliez]

Re : Filtre Automatique Multi Feuilles

Bonjour Patrick,

Sais tu comment, sur mon code, faire le filtre sur le mois ?
Où est mon erreur/manque ?

J'avoue ne pas avoir regardé car pour ma part, je privilégie toujours le filtre avancé d'excel. Plus simple à gérer en VBA et offre une multitude de possibilité.

 

[gosselien]

Re : Filtre Automatique Multi Feuilles

Re,

après avoir regardé la proposition du post #11, voilà de quoi faire le filtre sur le moi et les personnes

P.