Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…