format pourcentage dans tcd en passant par le vba

[bibbip35]

Bonjour

je viens vers vous pour vous demander un renseignement j'ai un tableau croisé dynamique qui se met à jour grâce à un code VBA

Mon problème étant je souhaiterais que le format soit au format pourcentage...le faire manuelle ment ne pose pas de problème
j aurrais voulu intergrer cette fonction au code ci dessous

Code vba
Dim PT1 As PivotTable Set PT1 = Sheets("TCD").PivotTables("Tableau croisé dynamique1") With PT1 .PivotCache.Refresh .AddDataField PT1.PivotFields(Format([Base!P1], "mmm-yy")), "Somme de " & Format([Base!P1], "mmm-yy"), xlSum
End With


merci a tous et bonne soirée

Bibbip35

 

[Pierrot93]

Re : format pourcentage dans tcd en passant par le vba

Bonjour,

en utilisant l'enregistreur de macro, tu récupèreras le code et il ne te resteras plus qu'a l'optimiser...

bonne journée
@+

 

[bibbip35]

Re : format pourcentage dans tcd en passant par le vba

Bonjour

J ai essayer en passant par l enregistreur de macro...je vois qu il faut utiliser formatnumber=0.0%
Mais je n arrive pas a le placer dans la formule

Merci à tous et bonne journée

Bibbip35