Comment Utiliser PivotFilters.Add pour appliquer des valeurs multiples de filtrage sur TCD
Bonjour,
Je n'arrive pas à utiliser cette méthode PivotFilters.Add, j'ai l'erreur 5, que ce soit avec Add ou Add2
L'autre façon d'appliquer plusieurs valeurs de filtre, qui consiste à boucler sur les PivotItems que l'on positionne à Visible ou pas, prend bcp trop de temps !!
Y a t'il une solution alternative ?
Code:
1
2
3
4
5
6
7
8
9
10
| Sub AAAA()
Dim PVT As PivotTable, PVF As PivotField
Set PVT = ActiveCell.PivotTable
Set PVF = ActiveCell.PivotField
PVF.ClearAllFilters
PVF.PivotFilters.Add2 Type:=xlValueEquals, Value1:="VIF-1-11-AASR" ', DataField:=PVF.Name
End Sub |
