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 : Sélectionner tout - Visualiser dans une fenêtre à part
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