VBA TCD supprimer une année

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA TCD supprimer une année

jay822519

Ce que l\

Bonjour :hello:

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 :

Code :

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 :

Code :

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 :na:

Publicité

rufo

Pas me confondre avec Lycos!

Question bête : les filtres de données qu'on met sur les entêtes de colonnes, ça ne fait pas l'affaire :??:

---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta

jay822519

Ce que l\

Hello, j'ai groupé les années et c'est tout bon !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA TCD supprimer une année

Sujets relatifs
[VBA] UPnP : « Lire sur l’appareil » : comment pousser un fichier?	[VBA] Modification d'un Excel depuis Access
[VBA] Datediff avec prise en compte des WE et/ou des jours ouvrés ?	Excel VBA : fonction indiquant #value au démarrage
VBA Word et Sendkeys	VBA Excel, TextBox qui ne fonctionne pas.
VBA msgbox?	pb script VBA sous Word pour export feuilles - laisse 1 page
VBA - Erreur Exécution	[VB/VBA/VBS] Problème script pour exécuter des programmes
Plus de sujets relatifs à : VBA TCD supprimer une année

Page générée en 0.027 secondes