Discussion :

[Lung]

Comment spécifier un format monétaire sur une cellule dans Excel ?
(Excel 2003, tant pis pour les autres versions)

J'ai bien essayé de faire une macro :

Code :

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

Excel.Selection.NumberFormat := '#,##0.00 $';

Mais, ce code dans Delphi donne un format personalisé avec un $ à la fin.

Quelqu'un saurait-il comment faire ?

[Cl@udius]

Salut

As-tu essayé comme ceci ?

Code :

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

1
2
 
  Excel.Selection.NumberFormat := '$#,##0.00';

@+

[Lung]

Salut

As-tu essayé comme ceci ?

Code :

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

1
2
 
  Excel.Selection.NumberFormat := '$#,##0.00';

@+

Oui.
Il y a un mieux, mais ce n'est pas encore ça.
En fait, en spécifiant ce format, Excel me dit que les cellules ont bien un format monétaire; sauf que visuellement, j'ai des valeurs alignées à gauche (au lieu d'être alignées à droite) et quand je fais une somme, Excel ne prend en compte que les valeurs visuellement monétaire.
Donc, c'est toujours pas bon.

Je sèche ...

[Lung]

J'ai l'impression que ce qui pose problème, c'est les espaces de miliers, car quand je les enlève, la valeur s'aligne à droite, elle est bien considérée par Excel comme valeur monétaire, et elle est prise en compte lors d'une somme.

Mais comment supprimer ces espaces que je n'ai pas demandé ?

[Cl@udius]

Re,

2° tentative

Code :

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

1
2
 
  NumberFormat := '$#,##0.00_);($#,##0.00)';

Surtout si ca marche, ne me demande pas pourquoi !

@+

[Lung]

2° tentative

Code :

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

1
2
 
  NumberFormat := '$#,##0.00_);($#,##0.00)';

C'est pire. C'est considéré comme du format personalisé. Plus aucun format monétaire.

Surtout si ca marche, ne me demande pas pourquoi !

Ca, j'ai bien compris qu'avec Excel, la logique est spéciale.