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