Discussion :

[zanou666]

Bonjour,

Je fais un tableau croisé dynamique en code VB, j'aimerai le paramétrer afin qu'on ne voit pas les totaux et sous-totaux. c'est quoi la ligne de code pour ça ?
je dois faire une ligne pour chaque champ ou une globale pour le tableau ?

[ouskel'n'or]

Regarde là, SilkyRoad "parle" des TCD et des moyens disponibles pour gérer les données qu'ils contiennent

[zanou666]

il parle pas de comment supprimer les lignes sous-totaux. qqn connait la commande ?

[ouskel'n'or]

Autant pour moi. J'ai cru que Silky avait mis là la façon de modifier le format d'une cellule d'un TCD. Jète un oeil dans la FAQ avec TCD comme mot clé, tu trouveras peut-être ton bonheur.

[zanou666]

J'ai mis cette ligne de code, mais ça ne marche pas !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveSheet.PivotTables("Tableau croisé dynamique").PivotFields("meuble[All;Total]").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)

comment s'utilise le.subtotals ?

[SilkyRoad]

bonsoir

tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim PvT As PivotTable
Dim PvF As PivotField
 
On Error Resume Next
For Each PvT In ActiveSheet.PivotTables
    For Each PvF In PvT.PivotFields
        PvF.Subtotals(1) = True
        PvF.Subtotals(1) = False
    Next PvF
Next PvT

bonne soirée
michel