Arrondi dans les calculs dans un Userform

[donpopo]

Bonjour le forum,

Je suis confronté depuis quelques heures à un petit problème de précision de calcul en VBA.

Dans un formulaire 'Userform1', je souhaite encoder un nombre (décimal ou non) dans le TextBox1 et un autre nombre (taux TVA) dans TextBox2.

Je voudrais que le résultat de TextBox1 x TextBox2 / 100 s'inscrive dans Label1 et que l'addition de TextBox1 et de Label1 se marque dans Label2.

Le code dans mon userform a l'air de fonctionner, mais les résultats de Label1 et Label2 ne sont pas corrects.

Je souhaite afficher tous ces nombres avec une précision de 2 décimales.

J'ai joint un fichier zippé pour mieux expliquer mon problème.

P.S.: de plus, les résultats diffèrent si je tape un point à la place d'une virgule pour les décimales.

Merci d'avance de votre aide.

donpopo

 

[youky(BJ)]

Re : Arrondi dans les calculs dans un Userform

Bonjour donpopo,
Essaies ce code
Bruno

Private Sub TextBox1_Change()
  TextBox1 = Replace(TextBox1, ".", ",")
    If TextBox2 <> "" And TextBox1 <> "" Then
        Label1 = Round(CDbl(TextBox1) * CDbl(TextBox2) / 100, 2)
        Label2 = Round(CDbl(TextBox1) + CDbl(Label1), 2)
    End If
End Sub

Private Sub TextBox2_Change()
TextBox2 = Replace(TextBox2, ".", ",")
    If TextBox1 <> "" And TextBox2 <> "" Then
        Label1 = Round(CDbl(TextBox1) * CDbl(TextBox2) / 100, 2)
        Label2 = Round(CDbl(TextBox1) + CDbl(Label1), 2)
    End If
End Sub

 

[donpopo]

Re : Arrondi dans les calculs dans un Userform

Merci youki(BJ),

C'est exactement ce que je cherchais.

Je ne suis pas au bout de mes peines avec la programmation vb!

A+

donpopo

 

[donpopo]

Re : Arrondi dans les calculs dans un Userform

Bonjour le forum,

J'ai assez bien avancé grâce aux renseignements fournis par youky(BJ).

Cependant, je bloque lorsque je désire additionner des textbox (valeurs numériques).

J'ai bien essayé avec CDbl, mais cela ne fonctionne pas.

Pourriez-vous m'aider?

J'ai joint un fichier zippé

Merci

donpopo

 

[youky(BJ)]

Re : Arrondi dans les calculs dans un Userform

Bonjour,
Voici en retour ton fichier
J'ai mis la caption des Label =0 pour éviter des erreurs
Donc à faire aussi sur le veritable fichier.
Macro trés peu changées.
Bruno

 

[donpopo]

Re : Arrondi dans les calculs dans un Userform

Merci youky(BJ),

C'est sympa; j'ai enfin compris mon problème.

donpopo