Discussion :

[BOUBOU81]

voilà mon problème:
Lorsque j'execute ceci, je devrai avoir mes données formaté avec le séparateur des milliers dans excel, mais là ca ne marche pas il met dans le format de cellule personnalisé au lieu de nombre.

Code :

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

1
2
3
4
5
6
 
Variant vRange,vValue;
vRange=FWorksheet.OlePropertyGet("Cells",lig,col);
vValue=StringToOleStr("#,##0");
vRange.OlePropertySet("NumberFormat",vValue);
vRange=vValue=Unassigned;

pourtant si j'enregistre une macro, c'est la commande qu'il execute.
separateur Millier sans virgule

Code :

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

Selection.NumberFormat = "#,##0"

[blondelle]

Salut BOUBOU81:

Peut etre en faisant ceci:

vValue = "#,##0";

[BOUBOU81]

ça compile mais bug à l'execution "format variable incorrect"

De plus cette méthode fonctionne si on utilise "0.00%" par exemple, c'est juste ce fichu séparateur de millier qui m'ennui

[blondelle]

Je fini de reinstaller mon disque dur car j'ai tout perdu suite a un crash
je fais in teste et je reposte
A+

[blondelle]

J'ai teste ton programme et cela fonctionne:
J'ai corrige "FWorksheet" par "vWorksheet"

Code :

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

1
2
3
4
5
6
Variant vRange,vValue;
vRange=vWorksheet.OlePropertyGet("Cells",1,1);
vValue=StringToOleStr("#,##0");
vRange.OlePropertySet("NumberFormat",vValue);
vRange=vValue=Unassigned;

[blondelle]

tu peu ecrire aussi directement la formule:

Code :

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

1
2
3
4
5
6
Variant vRange,vValue;
vRange=vWorksheet.OlePropertyGet("Cells",1,1);
vValue="#,##0";
vRange.OlePropertySet("NumberFormat",vValue);
vRange=vValue=Unassigned;

[BOUBOU81]

Oui mais non car j'en est fais une fonction ou je ne sais pas le format à l'avance.

Code :

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

1
2
3
4
5
6
7
8
9
 
void TExcel::FormatCellule(int lig,int col,AnsiString format)
{
      Variant vRange,vValue;
      vRange=FWorksheet.OlePropertyGet("Cells",lig,col);
      vValue=StringToOleStr(format);
      vRange.OlePropertySet("NumberFormat",vValue);
      vRange=vValue=Unassigned;
}

Mais j'ai testé en le mettant directement, et lors de l'execution excel me jette moi.

sinon il me mais ceci dans excel

si 0 dans cellule -> ,0
si 1000 dans cellule -> 1,000

Or moi je desirerai

si 0 dans cellule -> 0
si 1000 dans cellule -> 1 000

De plus si je le fais avec une macro cela fonctionne
Là ca me dépasse un peu trop, le séparateur des milliers dans mes préférence reginnal n'est pas la virgule en plus

[blondelle]

Bon j'ai eut une erreur sur le code
j'ai du supprimer les processus Excel en cour (Ctrl+Alt+Supp)
j'ai du sans sortir de BCB supprimer tout le classeur de sauvegarde complet, puis resauver le programme, et la plus d'erreur, le fait de supprimer le .obj n'etait pas suffisant
La chez moi ca fonctionne tel que tu la ecrit

[BOUBOU81]

Juste un petite question par hasard, tu as quel version d'Excel, moi j'ai la version 2000.
Je ne sais pas si cela peut y faire.

[blondelle]

Windows XP Pro pack2 Excel 2003

[blondelle]

Effectue un enregistrement VBE du parametrage de ta cellule je fais de meme de mon cote et on compare
Le code VBE:

Range("A1").Select
Selection.NumberFormat = "#,##0"
Range("A3").Select

[blondelle]

Je viens de voir dans la FAQ deux liens, un pour le separateur, l'autre pour les Milliers.

http://c.developpez.com/faq/bcb/?pag...cimalseparator

http://c.developpez.com/faq/bcb/?pag...sandsseparator

[BOUBOU81]

J'avais déjà regardé cette solution, mais le principe ne me plaît pas trop.
De plus j'ai essayé avec VBE, et ça fonctionne parfaitement.
la seul chose c'est que le format est bon (##,#0) mais lorsque je le fais depuis Borland, il se met dans un format cellule personnalisé et non en nombre

[blondelle]

Salut BOUBOU81:
Le format personnalise est pour les nombres, je ne pense pas que cela a une grande incidence.
Est ce que tu a resolut ton probleme?

[BOUBOU81]

non toujours pas, mais je vais tester sur un Excel 2003 pour voir ce que ça donne, et je vous tiens au courrant