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