Filtre TCD VBA
Bonjour à tous
Je suis sur la dernière partie de mon VBA mais là encore je bloque…
J’ai fait un enregistrement de macro :
Sub Macro9()
'
' Macro9 Macro
'
'
Sheets("Feuil3").Select
Range("A1:N4").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"type d'intervention").CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"type d'intervention")
.PivotItems("Préventif").Visible = False
End With
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Années"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Années")
.PivotItems("<12/01/2015").Visible = False
.PivotItems("2015").Visible = False
.PivotItems("2016").Visible = False
.PivotItems(">01/11/2017").Visible = False
End With
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("date"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("date")
.PivotItems("<12/01/2015").Visible = False
.PivotItems("Jan").Visible = False
.PivotItems("Feb").Visible = False
.PivotItems("Mar").Visible = False
.PivotItems("Apr").Visible = False
.PivotItems("May").Visible = False
.PivotItems("Jul").Visible = False
.PivotItems("Aug").Visible = False
.PivotItems("Sep").Visible = False
.PivotItems("Oct").Visible = False
.PivotItems("Nov").Visible = False
.PivotItems("Dec").Visible = False
.PivotItems(">01/11/2017").Visible = False
End With
ActiveSheet.ChartObjects("Graphique 3").Activate
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Années")
.PivotItems("<12/01/2015").Visible = False
.PivotItems("2015").Visible = False
.PivotItems(">01/11/2017").Visible = False
End With
End Sub
Le principe est de changer les filtres sur des TCD
Mais la quand j’exécute la macro pas à pas il se met en bug.
Si quelqu'un pouvais m'aider
MVB me dit Erreur d'execution '1004':
Impossible de lire la propriété PivotTables de la classe Worksheet.
Bonjour
Tu ne peux masquer toutes les valeurs : au moins l'une d'elle doit être à true