Pivotfilters

[vibresson]

Bonjour,

Je suis novice en VBA en Excel 2010.
Je parcours les forums et ne comprends toujours pas pourquoi mon filtre VBA ne fonctionne pas.

En cliquant sur un bouton, je souhaite appliquer un filtre à un TCD.

Voici mon scrit :

Code: Tout sélectionner
Sub Bouton1_Cliquer()

' ping_S3
Set pt6 = Feuil29.PivotTables(1)
Dim Var_Filter_Ping_S3 As PivotField
Set Var_Filter_Ping_S3 = Feuil29.PivotTables(1).PivotFields("File")
Var_Filter_Ping_S3.ClearAllFilters
Var_Filter_Ping_S3.PivotFilters.Add Type:=xlValueEquals, Value1:="A"
pt6.RefreshTable

End Sub



Cette ligne me renvoie l'erreur d'execution 5 : "Argument ou appel de procedure incorrect"
Var_Filter_Ping_S3.PivotFilters.Add Type:=xlValueEquals, Value1:="A"

J'ai essayé plusieurs syntaxes. TOujours la même erreur.

Votre aide serait précieuse..

 

[chris]

Re : Pivotfilters

Bonjour

Ce type de filtre (Type:=xlValueEquals) n'existe pas pour un champ placé en zone de filtre. Il faut utiliser CurrentPage =

L'enregistreur de macros te donne la bonne syntaxe...

 

[vibresson]

Re : Pivotfilters

Je ne suis pas sur de comprendre. Currentpage fait référence à quoi ?

 

[vibresson]

Re : Pivotfilters

MErci de ta réponse !! 🙂