Ta fonction Arrondi n'étant pas typée, donc en Variant, prendra à cause des décimales un type Variant / Double par défaut …
1 2 3 4 5 6 7 8 9 10 11
| Sub DemoPrecisionCalcul()
Const F$ = "20.4 - 19.6", L$ = vbLf & vbLf
C@ = Evaluate(F)
D# = Evaluate(F)
S! = Evaluate(F)
MsgBox Space(27) & "Calcul : " & F & L & "Type : (@) Currency = " & C & L & _
Space(15) & "(#) Double = " & D & L & _
Space(15) & "(!) Single = " & S, vbExclamation
End Sub |
A méditer …
Voir par exemple pour arrondir directement du côté de la fonction
CCur …
__________________________________________________________________________________________
Merci de cliquer sur
![+1](https://www.developpez.net/forums/images/smilies/poucevert.gif)
pour chaque message ayant aidé puis sur
![:resolu:](https://www.developpez.net/forums/images/buttons/resolu.gif)
pour clore cette discussion …
Partager