Discussion :

[berserk13]

Bonjour.
je me suis lancé sur l'amélioration d'un fichier professionnel et malgré mes faibles connaissances d'excell je me suis dépatouillé.
En revanche je bute sur une macro de récupération des informations de plusieurs tableaux préalablement filtrés.

L'idée:
J'ai 3 tableaux sur trois pages différentes et je veux en faire une synthèse mensuelle sur une 4ème feuille.
J'ai déja une macro intéressante qui m'affiche une fenêtre avec choix du mois et de l'année, mais elle n'est pas de moi et je n'arrive pas l'adapter pour filtrer les 3 tableaux en une seule action.

J'ai crée une fenêtre avec ce code et je la lance via un bouton macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Dim i&, Annee&, Annee1&, Annee2&, d&
 
Private Sub CommandButton1_Click()
 
    Annee = ListBox2
    d = Day(DateSerial(Annee, ListBox1.ListIndex + 2, 1) - 1)
 
    With ActiveSheet.ListObjects("Suivi_pannes")
    .AutoFilter.ShowAllData
    End With
    ActiveSheet.ListObjects("Suivi_pannes").Range.AutoFilter Field:=6, _
        Operator:=xlFilterValues, Criteria2:=Array(1, ListBox1.ListIndex + 1 & "/" & d & "/" & ListBox2)
    Unload Me
End Sub
 
Private Sub UserForm_initialize()
    For i = 1 To 12
        ListBox1.AddItem MonthName(i)
    Next i
 
    Annee1 = Year(Application.Min(Range("G5:G" & Range("G" & Rows.Count).End(xlUp).Row)))
    Annee2 = Year(Application.Max(Range("G5:G" & Range("G" & Rows.Count).End(xlUp).Row)))
    For i = Annee1 To Annee2
        ListBox2.AddItem i
    Next i
 
End Sub

J'aimerai pouvoir choisir le mois et l'année et que les trois tableaux se retrouvent avec les bons filtres appliqués.
Les informations iraient dans une page dédiée.

Merci.

[berserk13]

Bonjour.
Je n'ai pas trouvé de solution avec le code cité plus haut.
J'ai donc changé la méthode.
J'utilise les filtres avancés avec deux cases pour sélectionner le mois et l'année voulues.
J'utilise la fonction mois pour convertir le mois en nombre ce qui me permet de créer une date fictive du mois et de l'année voulue.
avec FIN.MOIS j'ai mon argument de filtre.
Le plus dur a été de faire changer les années dans la liste déroulante en fonction des dates de mon tableau.
J'y ai planché la journée entière mais quelques boucles plus tard ça semble rouler.
Je mets résolu.