VBA filtre dans un tableau croisé dynamique

**gauthier69** · 04/04/2014, 10h05

Bonjour,

Ayant un problème avec une macro VBA, je me permets de demander votre aide!

Je voudrais pouvoir imposer un filtre "date" en retenant les 4 dernières périodes lors d'une mise à jour du TCD.

Donc dans l'onglet période, l'utilisateur renseigne la date de l'importation des données. Ma formule à coté retient les 4 dernières périodes en tant que période 1, période2, période 3, période 4.

En cliquant sur mise à jour ma macro se lance pour retenir que les 4 dernières période dans le TCD.

Le TCD est issu des données de l'onglet détail facture.

Ci joint ma macro: Dans celle-là je n'arrive pas à imposer les périodes. Je pense n'ai pas très bien compris le rôle de
.PivotItems(i.Value).Visible = False. (avec Excel 2010)

Je joindrais le fichier filtre_TCD par la suite. (J’ai un problème de par feux)

D'avance merci de votre aide et de votre temps.

!!!

Cordialement,

Code vb :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub miseajour()
 
Dim periode1, periode2, periode3, periode4 As Date
Dim PvI As Object
 
 
    Sheets("23 - Période").Activate
    periode1 = Cells(6, 4).Value
    periode2 = Cells(7, 4).Value
    periode3 = Cells(8, 4).Value
    periode4 = Cells(9, 4).Value
 
 
    Sheets("19 - RAFF Qté Zone").Select
    Sheets("19 - RAFF Qté Zone").Activate
 
 
'Set Field = Sheet.PivotTables("14 - Graph Détail RAFF Qté Zone").PivotFields("[Date Observation].[Calendrier].[Annee]").VisibleItemsList = Array("")
'Sheet.PivotTables("14 - Graph Détail RAFF Qté Zone").PivotFields("[Date Observation].[Calendrier].[Mois]").VisibleItemsList = Array("", "[Date Observation].[Calendrier].[Mois].&[" & rng2 & "]", "[Date Observation].[Calendrier].[Mois].&[" & Rng & "]", "[Date Observation].[Calendrier].[Mois].&[" & rng3 & "]")
 
    Application.ScreenUpdating = False
    ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotSelect "Mois[All]", _
        xlLabelOnly + xlFirstRow, True
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Mois")
            For Each PvI In .PivotItems
                Select Case PvI.Name
                    Case Is <> periode1 'Pour tout qui est différent de la période 1,
                    'Il ne m'affichera pas la date
                    PvI.Visible = False 'Il me donne une erreur??? or je ne comprends pas???
                    Case Is <> periode2
                    PvI.Visible = False
                    Case Is <> periode3
                    PvI.Visible = False
                    Case Is <> periode4
                    PvI.Visible = False
                End Select
            Next
    End With
        Sheets("21 - Détails Factures").Select
        MsgBox ("Ok")
End Sub

**parmi** · 04/04/2014, 21h11

Le tableau doit toujours avoir au moins un item sélectionné.
Peut-être que tu devrais tous les activer avant de passer les lignes de code qui les décoche (?)

**gauthier69** · 05/04/2014, 17h03

Je prend note! mais pour l’instant cela ne change pas! J'ai toujours une erreur. Le format date complique peut être le problème. (cf macro pour tous les sélectionner)

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
Sub activertousitems()
 
Dim i As Integer 'j'ai aussi tester avec Date même erreur.
 
    Sheets("19 - RAFF Qté Zone").Select
    Sheets("19 - RAFF Qté Zone").Activate
 
    nb = ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Mois").PivotItems.Count
    For i = 1 To nb - 1
    With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Mois")
        .PivotItems(i).Visible = False
    End With
    Next
 
End Sub

Je joins le fichier cette fois-ci! http://www.partage-facile.com/N9RT82..._tcd.xlsm.html
D'avance merci!

!

**78chris** · 05/04/2014, 21h04

Bonjour

Il y a une bug sur les dates dans les TCD (et sur les vides).

Un contournement ici http://www.excel-formations.fr/Trucs_astuces/TCD08.php

**gauthier69** · 05/04/2014, 23h34

Merci beaucoup pour cette astuce, mais je suis un peu perdu!!!

Sur ce site, il parle rajouter une fonction ou un bout de code pour tester le champ mois mais je ne sais pas à quelle endroit je dois l’appeler cette fonction ou rajouter ce code.

!

D'avance Merci!

Liens vers mon fichier filtreTCD:
http://www.partage-facile.com/N9RT82..._tcd.xlsm.html
http://cjoint.com/14av/DDfuTBX1cDH.htm

**78chris** · 06/04/2014, 02h02

Bonjour

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub miseajour()
 
Dim periode1, _
    periode2, _
    periode3, _
    periode4
Dim PvI As PivotItem
 
 
    Sheets("23 - Période").Activate
    periode1 = Cells(6, 4).Value
    periode2 = Cells(7, 4).Value
    periode3 = Cells(8, 4).Value
    periode4 = Cells(9, 4).Value
 
 
    Sheets("19 - RAFF Qté Zone").Select
    Sheets("19 - RAFF Qté Zone").Activate
 
 
'Set Field = Sheet.PivotTables("14 - Graph Détail RAFF Qté Zone").PivotFields("[Date Observation].[Calendrier].[Annee]").VisibleItemsList = Array("")
'Sheet.PivotTables("14 - Graph Détail RAFF Qté Zone").PivotFields("[Date Observation].[Calendrier].[Mois]").VisibleItemsList = Array("", "[Date Observation].[Calendrier].[Mois].&[" & rng2 & "]", "[Date Observation].[Calendrier].[Mois].&[" & Rng & "]", "[Date Observation].[Calendrier].[Mois].&[" & rng3 & "]")
 
    Application.ScreenUpdating = False
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Mois")
            For Each PvI In .PivotItems
            If PvI.Name <> periode1 And PvI.Name <> periode2 And PvI.Name <> periode3 And PvI.Name <> periode4 Then
                Valini = PvI.Name
                PvI.Name = Format(PvI.Name, "m/d/yyyy")
                PvI.Visible = False
                PvI.Name = Valini
            End If
            Next
    End With
        Sheets("21 - Détails Factures").Select
        MsgBox ("Ok")
End Sub
 
Sub activertousitems()
 
Dim i As Integer
 
    Sheets("19 - RAFF Qté Zone").Select
    Sheets("19 - RAFF Qté Zone").Activate
 
   ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Mois").ClearAllFilters
 
End Sub

Edit :
il serait plus simple de réaliser cela sans macro avec un segment sur Mois
On peut aussi automatiser les 4 dernières périodes par une colonne supplémentaires.
Mettre la source sous forme de tableau est une bien meilleure solution que de traiter 1 millions de lignes dans le TCD
Voir ci-joint les 2 solutions

**gauthier69** · 06/04/2014, 11h43

de ton aide!
Je viens de comprendre le fonctionnement de cette astuce. Et la macro fonctionne très bien!

! Par contre comment faire pour éviter d'avoir des erreurs #Ref et Vide?

Edit:
J'avais pas vu la deuxième solution.

Effectivement, c'est beaucoup plus simple avec la fonction "GRANDE VALEUR" je n'y avais pas du tout pensée merci de cette astuce! Cela évite ce problème de date et les erreurs de vide ou de #REF!
Mon problème est donc résolu!

**78chris** · 06/04/2014, 12h00

RE

Les problèmes de #REF et vides viennent de la source : le filtre les masque mais je te conseille VIVEMENT de nettoyer les lignes sous les données qui contiennent des erreurs et de mettre la source sous forme de tableau.

**gauthier69** · 06/04/2014, 12h17

Merci! je prends note!

VBA filtre dans un tableau croisé dynamique [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager