Utilisation d'une variable dans un filtre TCD

[.jakob@gmail.com]

Bonjour à tous

je bloc depuis un moment pour utiliser une variable dans un filtre de TCD
Si quelque pouvais m'aider sur ce coup ca serait top

D'avance merci


Sub Macro4()
'
' Macro4 Macro
'
Dim monChampText As String
monchampTexte = Range("A1").Value

'
ActiveSheet.PivotTables("TCD_1").PivotFields("STITNO").ClearAllFilters
ActiveSheet.PivotTables("TCD_1").PivotFields("STITNO").CurrentPage = _
monchampTexte.Value

End Sub

 

[JCGL]

Byonjour à tous,

Peux-tu essayer avec :

Sub Macro4()
    Dim monChampTexte As String
    monChampTexte = Range("A1").Value

    ActiveSheet.PivotTables("TCD_1").PivotFields("Chgt Pilote").ClearAllFilters
    ActiveSheet.PivotTables("TCD_1").PivotFields("Chgt Pilote").CurrentPage = monChampTexte
End Sub

A+ à tous

 

[.jakob@gmail.com]

Bonjour

Merci pour ta réponse.
Je l'ai testé ca fonctionne. je vais continuer à avancer sur mon fichier.

Encore merci
Bonne journée
Cordialement

Sébastien