Problème de multiplication de 2 nombres en vba

jlp035

XLDnaute Occasionnel
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 ?

Code:
TextBox1.Value = Val(Replace(TextBox2, ",", ".")) * Val(Replace(TextBox3.Value, ",", "."))
Merci par avance pour vos réponses

Jean-Luc
 

youky(BJ)

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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 :

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

Private Sub TextBox3_Change()
TextBox2_Change
End Sub
A+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas