VBA TCD supprimer une année

Bonjour,

Je souhaite supprimer toutes les dates de 2019 et afficher toutes celles de 2020 sans les sélectionner une à une car de nouvelles datent peuvent arriver dans mon tableau.

Exemple du générateur de macro Excel :

ActiveSheet.PivotTables("3").PivotFields( _

"MAD").CurrentPage = "(All)"

With ActiveSheet.PivotTables("3").PivotFields( _

"MAD")

.PivotItems("18/12/2019").Visible = False

.PivotItems("24/12/2019").Visible = False

.PivotItems("27/01/2020").Visible = True

.PivotItems("13/02/2020").Visible = True

.PivotItems("03/03/2020").Visible = True

.PivotItems("18/03/2020").Visible = True

.PivotItems("31/03/2020").Visible = True

.PivotItems("01/04/2020").Visible = True

.PivotItems("07/04/2020").Visible = True

.PivotItems("14/04/2020").Visible = True

.PivotItems("10/07/2019").Visible = False

.PivotItems("26/06/2019").Visible = False

.PivotItems("26/07/2019").Visible = False

.PivotItems("06/08/2019").Visible = False

End With

Ce que je voudrais faire :

ActiveSheet.PivotTables("3").PivotFields( _

"MAD").CurrentPage = "(All)"

With ActiveSheet.PivotTables("3").PivotFields( _

"MAD")

.PivotItems("*2019*").Visible = False

.PivotItems("*2020*").Visible = True

End With

Merci pour votre aide

Bonjour

Fais un regroupement des dates par année et jour et filtre l'année

78chris a écrit :

Bonjour

Fais un regroupement des dates par année et jour et filtre l'année

Merci pour la réponse, j'utilise plusieurs fois le même TCD (copier / coller), et en groupant par date j'ai l'impression que ça casse un autre filtre dans un autre TCD.

Je regarde ça demain la vue plus nette

RE

Tu auras à supprimer le champ année des autres TCD (pas du regroupement) si pas nécessaire car quand on regroupe après avoir créé les TCD, le groupe Année se place automatiquement mais il suffit de le décocher

En principe pas d'autre incidence