TCD : sélectionner un filtre

Bonsoir à tous,

j'ai un point qui me bloque et que je n'arrive pas à solutionner.

je voudrais sélectionner uniquement un critère dans le filtre de mon TCD. En l'occurence le critère "titulaire revisable_".

mais j'ai un message qui me dit "impossible de lire la propriété PivotField de la classe Pivotable".

Cela vient d'un problème de variable ?

merci pour votre aide.

Bonjour,

Ce serait mieux de mettre un fichier contenant votre code. A minima, mettez en ligne votre code en utilisant la balise </>.

Bonjour,
Une interprétation de la demande.
Cdlt.

Public Sub Select_ST_Revisable()
Dim pt As PivotTable, pf As PivotField
    Set pt = Worksheets("TCD").PivotTables(1)
    Set pf = pt.PageFields("type_ST")
    With pf
        .ClearAllFilters
        .EnableMultiplePageItems = False
        .CurrentPage = "ST_Revisable"
    End With
End Sub

Bonjour à tous,

désolé pour le temps de retour.

Merci beaucoup Jean-Eric c'est bien ce que je cherchais à faire.

Bon week end ! :)