Code VBA pour afficher chiffres en millions dans un TCD

Bonjour à tous,

J'aurais besoin de votre aide pour modifier les chiffres du tableau ci joint en million avec 2 chiffre après la virgule.

Par exemple le chiffre 8463151301 deviendrai 8 463,15.

J'ai essayé avec ce code :

Range("B8").Select

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _

"Somme de B")

.NumberFormat = "# ##0,00 "

End With

Mais celà ne fonctionne pas et m'affiche 8 463 1 51 301

Merci d'avance pour votre aide.

13excel-pratique.xlsm (21.26 Ko)

Bonjour,

Tu mets comme format de cellule : "", soit une espace à la suite du code de format, ce qui doit normalement provoquer un affichage divisé par 1000 (correspondant au préfixe kilo.

Pour le préfixe méga (divisé par 1000000), il faut deux espaces.

""

NB- Ceci n'est valide que pour des paramètres régionaux FR FR. L'espace étant le caractère séparateur de milliers, il est à remplacer par le caractère correspondant pour d'autres paramètres régionaux.

Cordialement.

Ha super ! En remplacant la virgule par un point et les espaces par des virgules cela fonctionne !

Merci

En remplacant la virgule par un point et les espaces par des virgules cela fonctionne !

Ah ! Dans le code, bien sûr ! Tu codes en paramètres EN US avec NumberFormat... !

Rechercher des sujets similaires à "code vba afficher chiffres millions tcd"