Tableaux croisés dynamiques et filtre

Hello le forum,

J'ai un soucis et je cherche depuis 2 jours un problème de filtre dans un tableau croisés dynamique. Voici mon problème :

J'ai un champ Année en colonne dans le tableau croisé qui liste pour l'instant toutes les années de ma base. Je souhaite à l'aide de ma macro, désactiver toutes les années et activer uniquement 2 années que j'ai défini dans des variables.

Je peux utiliser la commande

Code:

---

ActiveSheet.PivotTables("Your Pivot Name").PivotFields("Your Field Name").ClearAllFilters

---

Le problème de cette commande est qu'elle affiche TOUS les éléments du filtre et qu'ensuite, je dois pour chaque année rendre l'élément invisible. Les années sont variables et je ne veux pas à chaque fois ajouter dans le code le fait de rendre invisible une année et visible une autre...

J'aimerai pouvoir à l'aide de ma macro, enlever toutes les coches du filtres et activer les 2 selon mes variables.

J'espère être claire et vous remercie pour votre aide,

Belle journée,

Caroline

Bonjour

Il faut une boucle qui rendre invisible toute valeur <> de tes variables donc pas besoin de nommément préciser l'année.

Mais VBA est-il indispensable alors qu'il existe des segments pour sélectionner très facilement des valeurs ?

Hello Chris,

Merci pour ta réponse. Je n'ai jamais fait de boucle dans un pivot table et j'ai essayé ainsi mais ça coince sur la ligne If .pivotitem.value <> Année 1 then

L'idée est que j'ai une variable Année 1 qui est à 2015 pour l'instant et que je souhaite qu'il désactive toutes les autres années de mon filtre. Dès que j'ai compris, je pense que je pourrai reprendre le même exemple pour fixer deux variable car j'aurai toujours besoin de 2 années. Merci :P

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit Sub Essai2() Dim i As Byte Dim Année1 As Integer Année1 = 2015   With ActiveSheet.PivotTables("Stat2ansParRégion").PivotFields("Année") For i = 1 To .PivotItems.Count If .PivotItem.Value <> Année1 Then .PivotItems(i).Visible = False   End If   Next i   End With End Sub

---

Bonjour

Le débogueur t'aurait permis de voir que dans les TCD la plupart des valeurs d'étiquettes sont des chaînes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit Sub Essai2() Dim i As Byte Dim Année1 As String Dim an As PivotItem Année1 = 2015 With ActiveSheet.PivotTables("Stat2ansParRégion").PivotFields("Année") .ClearAllFilters For Each an In .PivotItems If an.Value <> Année1 Then an.Visible = False Next End With End Sub

---

devrait marcher si ton champ année n'est pas issu d'un regroupement de dates.

Entretemps j'ai trouvé la solution :P

Merci pour ton aide Chris

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Année1 = 2015 Année2 = 2014     'Filtre des années   ActiveSheet.PivotTables("Stat2ansParRégion").PivotFields("Année").ClearAllFilters   With ActiveSheet.PivotTables("Stat2ansParRégion").PivotFields("Année") For iannee = 1 To .PivotItems.Count If .PivotItems(iannee) <> Année1 And .PivotItems(iannee) <> Année2 Then .PivotItems(iannee).Visible = False   End If   Next iannee   End With

---