[D6] Spécifier format monétaire dans Excel ?

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:

---

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

---

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

Quelqu'un saurait-il comment faire ?

:hola:

Salut

As-tu essayé comme ceci ?

Code:

---

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

---

@+

Citation:

---

Envoyé par Cl@udius

Salut

As-tu essayé comme ceci ?

Code:

---

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

:pleure: :marteau:

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é ?

:evilred: :arf:

Re,

2° tentative :mrgreen:

Code:

---

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

---

Surtout si ca marche, ne me demande pas pourquoi ! ;)

@+

Citation:

---

Envoyé par Cl@udius

2° tentative :mrgreen:

Code:

---

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

---

---

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

Citation:

---

Envoyé par Cl@udius

Surtout si ca marche, ne me demande pas pourquoi ! ;)

---

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

:cfou:

Citation:

---

Envoyé par Lung

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

---

C'est bizarre car en lancant cette p'tite procedure VBA cela fonctionne (Avec Excel 2003).

Code:

---

1 2 3 4 5

Sub FormaterNombre() Worksheets("Feuil1").Columns("C"). _ NumberFormat = "$#,##0.00_);($#,##0.00)" End Sub

---

:koi:

@+

Citation:

---

Envoyé par Cl@udius

C'est bizarre car en lancant cette p'tite procedure VBA cela fonctionne (Avec Excel 2003).

Code:

---

1 2 3 4 5

Sub FormaterNombre() Worksheets("Feuil1").Columns("C"). _ NumberFormat = "$#,##0.00_);($#,##0.00)" End Sub

---

:koi:

@+

---

Excel a l'air de se comprendre lui-même, mais quand je lui dis depuis Delphi, ça donne pas la même chose.

:furieux: M'énerve ...
Perdre du temps là-dessus ...

On m'a proposé de procéder autrement :
Spécifier les formats des cellules au moment de l'importation du fichier texte dans Excel.

Je me penche sur la fonction Excel.Workbooks.OpenText, mais je ne trouve pas comment spécifier les formats monétaires. Excel ne dit rien dans l'aide, et la MSDN ne donne pas d'explication sur les paramètres (en tout cas, j'ai rien trouvé).
- Quelqu'un saurait-il le faire avec cette fonction ?
- Y a t'il une autre fonction plus appropriée ?

:help:

Bonjour, sauf erreur de ma part sur mon Excel je ne mets jamais de virgules entre les dièses, seulement un espace.
vous devriez tenter???
'# ##0.00 $'
Cordialement 8-)