Discussion :

[desdenova]

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 !!

[guyanais]

Bonjour,

Essaie cela à tout hasard.

Code :

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

Selection.NumberFormat = "#,##0.00"