Discussion :

[fochive]

Bonjour a tous,

j’utilise pour supprimer les sous totaux d'un tableau croisé dynamiquement ce code : sauf que ce code supprime tous les sous totaux.

j'aimerai supprimer les sous totaux d'une seule colonne spécifique.

Code :

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

1
2
3
4
5
6
 
Dim p As PivotField
    For Each p In ActiveSheet.PivotTables(1).PivotFields
    If p.Orientation = 1 Then p.Subtotals = Array(False, False, False, False, _
    False, False, False, False, False, False, False, False)
Next p

Merci de m'aider

[halaster08]

Bonjour,

j'aimerai supprimer les sous totaux d'une seule colonne spécifique.

Je ne suis pas sûr d'avoir compris ce que tu veux dire par sous-total d'un colonne mais si tu parle d'un champ de TCD, voici comment enlever le sous-total du champ "TSLIB1"

Code :

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

1
2
3
4
 
    ActiveSheet.PivotTables(1).PivotFields("TSLIB1"). _
        Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
        False, False)

Si ce n'étais pas ce que tu cherches, des captures d'écran peuvent éventuellement aider à la compréhension.

[fochive]

c'est exactement ça merci!

J'avais fais le code suivant mais le votre est plus optimal.

les deux marches très bien .

Code :

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

1
2
3
ActiveSheet.PivotTables(1).PivotSelect _
          "Name[All;Total]", xlDataAndLabel, True
           Selection.Delete