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.

[Cl@udius]

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 :

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

1
2
3
4
5
 
Sub FormaterNombre()
    Worksheets("Feuil1").Columns("C"). _
        NumberFormat = "$#,##0.00_);($#,##0.00)"
End Sub

@+

[Lung]

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

Code :

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

1
2
3
4
5
 
Sub FormaterNombre()
    Worksheets("Feuil1").Columns("C"). _
        NumberFormat = "$#,##0.00_);($#,##0.00)"
End Sub

@+

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

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

[Lung]

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 ?

[Transitoire]

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