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;