Discussion :

[Monkey_D.Luffy]

Bonjour,

Je code une macro qui remplit une feuille Excel avec plein de nombres.
Certains sont des entiers, d'autres des décimaux.

Si j'applique aux cellules le NumberFormat (#,##0.00), cela m'affiche 2 décimales pour chaque nombre. Par exemple pour 5.440545, j'aurai 5.44. Mais pour 150, j'aurai 150.00.
Or, je voudrai que pour un entier cela ne m'affiche pas les décimales.

Est-ce possible ?

Merci d'avance.

[tototiti2008]

Bonjour,

Oui, c'est possible

par exemple,

Code :

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

1
2
3
4
5
6
7
8
9
For i = 1 to 1000
If isnumeric(Range("A" & i).value) then
If Range("A" & i).value = Fix(Range("A" & i).value) then
Range("A" & i).Numberformat = "#,##0"
Else
Range("A" & i).Numberformat = "#,##0.00"
End If
End If
Next i

[Monkey_D.Luffy]

Bonjour et merci pour ta réponse.

En fait cette solution me serait trop couteuse à mettre en place car ça impliquerait que je modifie mon code à chaque endroit où je remplis une cellule.

J'avais justement commencé à faire un :

Code :

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

vSheet.Cells(i, j).value = Application.WorksheetFunction.Round(myVal, 2)

seulement sur les colonnes où je sais qu'il peut y avoir des décimales à afficher.

Mais n'y a-t-il pas un Numberformat Custom qu'on pourrait appliquer à toute la feuille ? Sachant qu'idéalement je souhaiterai aussi qu'il y ait des séparateurs de milliers (je complique les choses, je sais ^^)

[tototiti2008]

Re,

bah, il y a bien

Code :

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

.Numberformat = "#,##0.??"

ou

Code :

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

.Numberformat = "#,##0.##"

mais la virgule qui traine n'est pas trés jolie

Sinon je ne vois pas, personnellement