Mise à jour filtre TCD avec valeur de cellule

Bonjour A tous,

Je galère depuis ce matin sur ce code

Je voudrai que le filtre du TCD se mette à jour avec la valeur inscrite en F2. Mais impossible, j'ai essayé aussi en déclarant F2 en string, puis la rappeler comme tel, mais rien a faire, qu'est ce qui cloche sur cette ligne de code?

Sub Macro1()

'

' Macro1 Macro

'

'

' Dim chaine As String

' chaine = Range("F2").Value

With ActiveSheet.PivotTables("Tableau croisé dynamique2")

.PivotFields("Désignation article").ClearAllFilters

.PivotFields("Désignation article").CurrentPage.Range("F2").Value

End With

End Sub

Bonjour

Et si vous faites plutot ceci -->

PivotFields("Désignation article").CurrentPage = Range("F2").Value

Cordialement

Merci Dan,

Mais non, ça ne fonctionne pas non plus,

Erreur 1004.

Bonjour à tous

Pas sûr de l'intérêt du VBA alors qu'on a les segments pour filtrer d'un clic...

A noter que CurrentPage ne fonctionne que pour un champ placé en zone de filtre ou page du TCD et mono-sélectionnable

Bonsoir

Mais non, ça ne fonctionne pas non plus, Erreur 1004.

Le mieux serait de voir le TCD.

Il faut que ce qui est dans la cellule F2, fasse partie de la liste reprise dans le champ de page. Est-ce le cas ?

Cordialement