Discussion :

[formabox]

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 :

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

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

[78chris]

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 ?

[formabox]

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

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
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

[78chris]

Bonjour

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

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
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.

[formabox]

Entretemps j'ai trouvé la solution

Merci pour ton aide Chris

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
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