Discussion :

[visto94]

Bonjour tout le monde!

Je souhaiterai, en VBA bien sur, limiter les nombre de chiffre après une virgule.

Ex: 12.36985631478954 <---> 12.37

Quel fonctions dois-je utiliser ?

Merci & Bonne journée!

[Nako_lito]

salut,

tu as la fonction NumberFormat pour une Range.

Range("A1").NumberFormat = "0,00" forcera le format a deux chiffre apres la virgule.

[visto94]

Le problème c'est que j'utilise "Cells" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
i_case = i_case + 1
 
Cells(i_case, 6) = "I_BACKUP"
Cells(i_case, 7) = quantity_backup & " GO used"
Cells(i_case, 8) = "ESTIMED M"
Cells(i_case, 11) = Sub_total_backup
Cells(i_case, 5) = code_affaire
Cells(i_case, 4) = donneur_ordre
Cells(i_case, 1) = "FH57"
Cells(i_case, 2) = "FRA"
Cells(i_case, 3) = myDate
Cells(i_case, 12) = "EUR"
Cells(i_case, 16) = "X"
Cells(i_case, 9) = date_debut
Cells(i_case, 10) = date_fin

Sub_total_backup c'est cette valeur que je veux réduire a 2 chiffres après la virgule..

[Nako_lito]

de mon coté, que ca soit range ou cells ca fonctionne de la même manière (et quelque part, c'est tout a fait normal).

Essaye avec Cells(x,y).NumberFormat = "0.00" et tu verras que ca fonctionne.

[visto94]

Je le positionne en début de programme ?!

[Nako_lito]

la meilleur place est a mon avis une fois que la cellule vient d'etre affectée.

Code :

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

1
2
3
4
5
6
7
8
i_case = i_case + 1
 
......
Cells(i_case, 8) = "ESTIMED M"
Cells(i_case, 11) = Sub_total_backup
Cells(i_case, 11).NumberFormat = "0.00"
Cells(i_case, 5) = code_affaire
......