Formater un TCD sous VBA

[bigmousse]

Bonjour

Je souhaite retirer l'ensemble des champs de mon TCD via VBA voici le code :

Sub Supfield()
'Procedure qui enleve tous les champs d'un TCD

Dim Mon_TCDy As PivotTable
  
Set Mon_TCDy = Worksheets("Feuil5").PivotTables("Mon_TCD")

With Mon_TCDy
For i = 1 To .PivotFields.Count
b = Mon_TCDy.PivotFields(i).Name
c = .PivotFields.Count
'Mon_TCDy.PivotFields(i).Delete
Mon_TCDy.PivotFields(i).Orientation = xlHidden
Next i
End With

End Sub

Le problème est que ce code fonction seulement pour les champs qui sont placés en page, ligne et colonne.
Pour les champs en Data, ceux-ci ne sont pas retirés de mon TCD.

L'instruction Pivotfield.count comptabilise les champs de la liste seulement.
Mais lorsque l'on fait glisser un champs dans la zone Data, ce champs se transforme en nombre de ...
Par exemple le champ "Période", lorsque l'on fait glisser dans le champ data ça donne "Nombre de période", ma routine ne fonctionne pas, et je suis obliger d'utiliser la même instruction en ajoutant le nom de champ "Nombre de...

Mon_TCDy.PivotFields("Nombre de Période").Orientation = xlHidden

Merci si vous avez une reponse.

Mousse

 

[Pierrot93]

Re : Formater un TCD sous VBA

Bonjour Mousse,

pas beaucoup de réponse à ta question... un tout petit fichier en pièce jointe nous aiderait peut être à y voir plus clair... petite info néanmoins, au moins un élément doit être affiché dans un champ de données.... enfin me semble t il ... A voir...

bonne journée
@+

 

[MJ13]

Re : Formater un TCD sous VBA

Bonjour BigMousse, Pierrot

A tester cette procédure:

Sub TCD_RAZ_Données()
'MJ
On Error Resume Next
nElmt = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields.Count
'MsgBox ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(5)
For i = 1 To nElmt
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
i).Orientation = xlHidden
Next
End Sub

 

[bigmousse]

Re : Formater un TCD sous VBA

Merci Pierrot je vais tester ce code demain, je vous tiens au courant.
Merci
à+
Mousse