Comment formater un résultat dans une Macro OpenOffice ?

Le résultat est toujours retourné tronqué de ses décimales.
Sub FormaterCorrectement()
rem question : Comment formater

Const EURO As Double = 6.55957
Dim mesFrancs As Double
Dim Resultat As Double

mesFrancs = InputBox("Saisissez la somme en francs")
Resultat = CDbl(Format(mesFrancs / EURO, "##.00"))
' Je convertis en Double le formatage à deux décimales du résultat
' sinon le résultat avant l'affichage est casté et la partie décimale tombe

MsgBox(Resultat, 64 , "Résultat de la conversion")

End Sub




    Laisser un commentaire

    Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

    Logo WordPress.com

    Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

    Image Twitter

    Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

    Photo Facebook

    Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

    Photo Google+

    Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

    Connexion à %s



%d blogueurs aiment cette page :