Discussion :

[rodyrod]

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 :

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

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

[78chris]

Bonjour

Ne serait-il pas plus simple d'utiliser un segment ou une chronologie plutôt que programmer ?

Sinon effectuer une boucle et travailler par comparaison : si c'est différent de la valeur de la cellule, on masque...