Faire un filtre sur TCD fonction d'une valeur dans une cellule
Bonjour, je souhaite faire une macro qui me permette de filtrer mon TCD sur des valeurs que je mets dans une cellule. J'ai essayé cette formule qui fonctionne mais je suis obligé de mettre les valeurs à filtrer dans le code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Sub essai()
'
' essai Macro
'
Range("B5").Select
ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("MONTH"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("MONTH")
.PivotItems("February 2017").Visible = False
.PivotItems("March 2017").Visible = True
End With
End Sub |
Donc ici je voudrais pouvoir faire référence à une cellule par exemple K3 au lieu de "february 2017"
Je suis un bleu en VBA merci pour votre aide
