Bonjour,

je souhaiterais mettre tous les champs d'un TCD en somme et en format milliers... J'ai fait la macro suivante mais cela ne fonctionne pas, j'ai le message suivant :

Impossible de définir la propriété Function de la classe PivotField
Voici ma macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub MacroFormatTCD()
 
With ActiveSheet.PivotTables("Tableau croisé dynamique1")
    For i = 1 To .PivotFields.Count
    .PivotFields(i).Function = xlSum
    .PivotFields(i).NumberFormat = "# ##0"
    Next
End With
 
End Sub
merci bcp pour votre aide !!