XL 2016 TCD par code VBA

Ahmed he

XLDnaute Nouveau
Bonjour

j'ai créé un tcd par code VBA mais je n'arrive pas :
1-eliminer les vides
2- centrer les cellules

MErci !
 

Pièces jointes

  • sans-titre.png
    sans-titre.png
    17.2 KB · Affichages: 19

Dan

XLDnaute Barbatruc
Bonjour

Vous ne pouvez pas les éliminer mais les cacher
Le mieux serait de voir votre fichier sinon essayez d'appeler ce code lorsque le TCD est construit
VB:
Sub Macro1()
'Macro Dan
Dim pi As PivotItem
   For Each pi In ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("votre champ avec valeurs à 0").PivotItems
        If pi.DataRange = 0 Then pi.Visible = False Else: pi.Visible = True
    Next
End sub
 

Dan

XLDnaute Barbatruc
Si je vous ai posté un code c'est que je l'ai vérifié avant.

Quel est le nom de votre TCD car si différent de "Tableau croisé dynamique1", il faut adapter et mettre le nom de votre TCD. Même chose pour le champ (comme précisé avant)

Sinon mettez votre fichier en ligne ce sera plus simple d'analyser.
Avec les TCD ce n'est pas toujours simple.
 

Statistiques des forums

Discussions
311 720
Messages
2 081 904
Membres
101 834
dernier inscrit
Jeremy06510