Discussion :

[charles13000]

Bonjour à tous,

Je souhaite via une macro VBA exécuter un filtre sur un champ (sélection de la valeur "b") d'un tableau croisé dynamique (TCD).
Voici le code que j'applique:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub filtre_tcd_test()
 
 
    With ActiveSheet.PivotTables("tcd test").PivotFields("Colonne 1")
 
        .ClearAllFilters
        .CurrentPage = "(All)"
 
    End With
 
End Sub

J'obtiens l'erreur suivante:

Impossible de définir la propriété CurrentPage de la classe PivotField

Une idée sur la question?

Merci beaucoup :-)

[charles13000]

Désolé une petite erreur c'était glissée dans mon précédent message.
Voici le code exacte que j'ai tapé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub filtre_tcd_test()
 
 
    With ActiveSheet.PivotTables("tcd test").PivotFields("Colonne 1")
 
        .ClearAllFilters
        .CurrentPage = "b"
 
    End With
 
End Sub

[halaster08]

Bonjour,

As tu essayé d'obtenir le code par l'enregistreur de macro?

[78chris]

Bonjour

Currentpage est réservé aux filtres des champs de page( ou zone de filtre selon le nouvelle appellation) mono sélection.