Bonjour à tous,
j'étais à la recherche d'un exemple de macro qui me permette de filtrer mon TCD par dates quand je suis tombé sur un code de Pierrot93 dans les archives du forum. J'ai fais une légère adaptation à mon fichier, mais on dirait que cela ne lui a pas plu car j'ai droit à une jolie "erreur d'exécution 1004 - Impossible de définir la propriété Visible de la classe PivotItem".
Voici le code:
Quand je lance le débogage il me surligne en jaune la partie: p.Visible = False.
Auriez-vous une idée d'où peut provenir le problème car je sèche.
Je vous joins un fichier que j'ai allégé au niveau des données pour vous aider.
j'étais à la recherche d'un exemple de macro qui me permette de filtrer mon TCD par dates quand je suis tombé sur un code de Pierrot93 dans les archives du forum. J'ai fais une légère adaptation à mon fichier, mais on dirait que cela ne lui a pas plu car j'ai droit à une jolie "erreur d'exécution 1004 - Impossible de définir la propriété Visible de la classe PivotItem".
Voici le code:
Code:
Sub MasqueDates()
Dim p As PivotItem
Application.ScreenUpdating = False
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date")
For Each p In .PivotItems
p.Visible = True
Next p
For Each p In .PivotItems
If p.Value <> Month(Range("J1")) Then p.Visible = False
Next p
End With
Application.ScreenUpdating = True
End Sub
Quand je lance le débogage il me surligne en jaune la partie: p.Visible = False.
Auriez-vous une idée d'où peut provenir le problème car je sèche.
Je vous joins un fichier que j'ai allégé au niveau des données pour vous aider.