VBA filtre dans un tableau croisé dynamique

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. :D !!!

Cordialement,

Code:

---

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

---

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 (?)

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:

---

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! :D !

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

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

Bonjour

Code:

---

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

:merci: de ton aide!
Je viens de comprendre le fonctionnement de cette astuce. Et la macro fonctionne très bien! :D! 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!

:merci:

:resolu:

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.

Merci! je prends note!