[VBA-E] Format TCD somme milliers
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 :
Citation:
Impossible de définir la propriété Function de la classe PivotField
Voici ma macro :
Code:
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 !!
