Discussion :

[ulovb]

Bonjour,
Reprenant ce post , J'ai fais ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Const conPI = 3.14159265359
Dim eVol1 As String
Dim dVol1 As String
Dim MonVol1 As Double
 
    MonVol1 = (Me.txtlong1 * Me.txtdiam1 * Me.txtdiam1 * conPI / 4000000)
    eVol1 = Int(MonVol1)
    dVol1 = (MonVol1 - eVol1)
    Me.EntVo1 = eVol1
    Me.DecVol1 = Left(dVol1, 5)
    Me.txtVol1 = CInt(Me.EntVo1) + CDbl(Me.DecVol1)

Il se trouve que lorsque la partie décimale dVol1 à pour 1er chiffre après la virgule un chiffre différent de 0; il n'y a aucun soucis.
Par contre si le 1er chiffre après la virgule est un 0; mon résultat Me.txtVol1 = CInt(Me.EntVo1) + CDbl(Me.DecVol1) devient erroné.
Merci de m'aider à résoudre ce problème

[marot_r]

Bonjour.

Bizarre ton truc.

Personnellement je ferai ceci pour tronquer le nombre à 3 décimales :

Code :

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

1
2
3
4
 
dim volTexte as string:volTexte=format(MonVol1,"0.0000") 'Arrondi à 4 décimales
volTexte=left(voltexte, len(voltexte)-1) 'Coupe à 3 décimales
Me.txtVol1=voltexte

A+

[ulovb]

Bonjour,
Merci marot_r.
Effectivement ton code est beaucoup plus simple et ça marche.
Merci encore