Discussion :

[Vinzz974]

bonjour à toutes/tous!!

je souhaiterai compléter mon code ci-dessous afin de pouvoir mettre en forme les données de mon tcd généré via macro vba pour excel en format : séparateur de milliers+ pas de décimales+ négatifs en rouge.
Je n'ai réusssi à trouver la/les ligne(s) de code me permettant d'arriver à mes fins malgré quelques heures de recherche sur le net.

CODE

Code :

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

1
2
3
4
5
6
7
8
Sheets("TCD").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    [BRP!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
    TableDestination:="TCD!R3C1", _
    TableName:="TCD", DefaultVersion:=xlPivotTableVersion10
    With Sheets("TCD").PivotTables("TCD")
    .AddFields RowFields:="Type traité"
    .PivotFields("Montant").Orientation = xlDataField

FIN CODE

Merci beaucoup de votre aide à venir!
@+

[mercatog]

Peut être (pas testé)

Code :

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

1
2
3
4
5
6
7
With Sheets("TCD").PivotTables("TCD")
    .AddFields RowFields:="Type traité"
    With .PivotFields("Montant")
        .Orientation = xlDataField
        .NumberFormat = "#,##0;[Red]-#,##0"
    End With
End With

[Vinzz974]

ok marche parfaitement....

merci beaucoup!