XL 2016 TCD par code VBA

[Ahmed he]

Bonjour

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

MErci !

 

[Dan]

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

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

 

[Ahmed he]

ca ne marche pas mon ami

 

[Dan]

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.

 

[Ahmed he]

"votre champ avec valeurs à 0" : vous voulez dire quoi par cette phrase

 

[Dan]

Si la valeur est à 0, on cache l'item. Vous pouvez essayer aussi en remplaçant le 0 par ""