Problème de multiplication de 2 nombres en vba

[jlp035]

Bonjour,
Je viens d'effectuer un bout de programme en vba pour une multiplication, malgré que textbox2 (contient la valeur 1000,000) et textbox3 (contient la valeur 1,010) j'ai toujours la valeur 0 en résultat.
Faut'il convertir ou imposer les formats ?

TextBox1.Value = Val(Replace(TextBox2, ",", ".")) * Val(Replace(TextBox3.Value, ",", "."))

Merci par avance pour vos réponses

Jean-Luc

 

[youky(BJ)]

Re : Problème de multiplication de 2 nombres en vba

Bonjour, chez moi il faut Cdbl et j'ai inversé le . et ,
TextBox1.Value = cdbl(Replace(TextBox2, ".", ",")) * cdbl(Replace(TextBox3.Value, ".", ","))
Bruno

 

[jlp035]

Re : Problème de multiplication de 2 nombres en vba

Bonjour Youky,
Merci pour ta prompte réponse.
Je viens d'essayer, quand le lance cette ligne(seule) j'ai un message d'erreur d’exécution "13" incompatibilité de type.
Faut'il déclaré des variables ?

Jean-Luc

 

[job75]

Re : Problème de multiplication de 2 nombres en vba

Bonjour jlp035, hello Bruno,

L'instruction du post #1 fonctionne très bien, encore faut-il l'exécuter...

Quelle(s) macro(s) utilisez-vous ? Classiquement il y a celles-ci :

Private Sub TextBox2_Change()
TextBox1 = Val(Replace(TextBox2, ",", ".")) * Val(Replace(TextBox3.Value, ",", "."))
End Sub

Private Sub TextBox3_Change()
TextBox2_Change
End Sub

A+