Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2851 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBA TCD supprimer une année

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBA TCD supprimer une année

n°2353650
jay822519
Ce que l\
Posté le 11-05-2020 à 23:38:59  profilanswer
 

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:

mood
Publicité
Posté le 11-05-2020 à 23:38:59  profilanswer
 

n°2353664
rufo
Pas me confondre avec Lycos!
Posté le 12-05-2020 à 11:57:51  profilanswer
 

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
n°2353738
jay822519
Ce que l\
Posté le 14-05-2020 à 12:31:04  profilanswer
 

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


Aller à :
Ajouter une réponse
  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 SendkeysVBA 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


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR