VBA TCD supprimer une année

VBA TCD supprimer une année - VB/VBA/VBS - Programmation

Marsh Posté le 11-05-2020 à 23:38:59    

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 :
  1. ActiveSheet.PivotTables("3" ).PivotFields( _
  2. "MAD" ).CurrentPage = "(All)"
  3. With ActiveSheet.PivotTables("3" ).PivotFields( _
  4. "MAD" )
  5. .PivotItems("18/12/2019" ).Visible = False
  6. .PivotItems("24/12/2019" ).Visible = False
  7. .PivotItems("27/01/2020" ).Visible = True
  8. .PivotItems("13/02/2020" ).Visible = True
  9. .PivotItems("03/03/2020" ).Visible = True
  10. .PivotItems("18/03/2020" ).Visible = True
  11. .PivotItems("31/03/2020" ).Visible = True
  12. .PivotItems("01/04/2020" ).Visible = True
  13. .PivotItems("07/04/2020" ).Visible = True
  14. .PivotItems("14/04/2020" ).Visible = True
  15. .PivotItems("10/07/2019" ).Visible = False
  16. .PivotItems("26/06/2019" ).Visible = False
  17. .PivotItems("26/07/2019" ).Visible = False
  18. .PivotItems("06/08/2019" ).Visible = False
  19. End With


Ce que je voudrais faire :

Code :
  1. ActiveSheet.PivotTables("3" ).PivotFields( _
  2. "MAD" ).CurrentPage = "(All)"
  3. With ActiveSheet.PivotTables("3" ).PivotFields( _
  4. "MAD" )
  5. .PivotItems("*2019*" ).Visible = False
  6. .PivotItems("*2020*" ).Visible = True
  7. End With


 
Merci pour votre aide  :na:

Reply

Marsh Posté le 11-05-2020 à 23:38:59   

Reply

Marsh Posté le 12-05-2020 à 11:57:51    

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
Reply

Marsh Posté le 14-05-2020 à 12:31:04    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed