calcule entre textbox et combobox

[lookdogs]

Bonjour,

Voila mon souci :

J'ai un userform qui contient plusieur textbox et combobox.

Données :

Textbox1 : Montant ht
Textbox7 : Montant TTC
Combobox3 : TVA (19.6% et 5.5%)

Je voudrais que le calcule (textbox1+combobox3) ce fasse automatiquement.

Pour cela j'utilise la formule

Private Sub TextBox1_AfterUpdate()
TextBox7.Value = Val(TextBox1.Value) + Val(combobox3.Value)
End Sub

Private Sub combobox3_AfterUpdate()
TextBox7.Value = Val(TextBox1.Value) + Val(combobox3.Value)
End Sub

Mais biensûr ça ne fonctionne pas!!

Pouvez vous m'aider à trouver le problème

Merci a+

 

[jeanpierre]

Re : calcule entre textbox et combobox

Bonjour lookdogs,

Si ta combo donne le pourcentage de TVA, il faudrait un truc du genre :

TextBox7.Value = Val(TextBox1.Value) + Val(TextBox1.Value) * Val(combobox3.Value)

Bonne journée.

Jean-Pierre

 

[néné06]

Re : calcule entre textbox et combobox

Bonjour lookdogs

Je pense qu'un oubli de ( ) ne donne pas le resultat escompté

A mon avis la formule serai
TextBox7.Value = Val(TextBox1.Value) + (Val(TextBox1.Value) * Val(combobox3.Value))

bonne journée a tous
néné06

 

[lookdogs]

Re : calcule entre textbox et combobox

Salut Jeanpierre,

Merci pour votre réponse mais ça ne fonctionne pas, je pense que je l'introduit mal. Dois-je garder mon ancien code ou tous remplacer par le votre.

Merci a+

 

[job75]

Re : calcule entre textbox et combobox

Bonjour le fil,

En complément de la formule de jeanpierre (pas besoin de parenthèses néné06), essayer ces diverses solutions :

- s'il y a le signe % dans ComboBox3 Edit : ou 5.5 et 19.6 tout court d'ailleurs... :

TextBox7 = Val(TextBox1) + Val(TextBox1) * Val(Combobox3)[COLOR="Red"]/100[/COLOR]

- et si l'on veut utiliser des virgules :

TextBox7 = Val(Replace(TextBox1, ",", ".")) + Val(Replace(TextBox1, ",", "."))* Val(Replace(Combobox3, ",", "."))

TextBox7 = Val(Replace(TextBox1, ",", ".")) + Val(Replace(TextBox1, ",", "."))* Val(Replace(Combobox3, ",", "."))[COLOR="red"]/100[/COLOR]

A+

 

[lookdogs]

Re : calcule entre textbox et combobox

salut à tous,

j'ai aissayé toute vos formule mais rien ne vas alors je pense que c'est moi qui les rentre pas bien.

Dite moi par quoi doit commencer la formule.

Moi ça donne :

Private Sub TextBox7_Change()
TextBox7 = Val(Replace(TextBox1, ",", ".")) + Val(Replace(TextBox1, ",", ".")) * Val(Replace(ComboBox3, ",", ".")) / 100
End Sub

est ce que c'est bon?

A + merci🙂

 

[néné06]

Re : calcule entre textbox et combobox

Salut lookdogs

Essais ce petit programme s'il te convient.

Cordialement

A+

 

[Fo_rum]

Re : calcule entre textbox et combobox

Salut

En dehors du problème du séparateur décimal, je remplacerai "Val" par "CSng".

Private Sub [B][COLOR="Red"]...[/COLOR][/B]()
TextBox7 = CSng(TextBox1) * (1 + CSng(ComboBox3 / 100))
End Sub

correctif : désolé pour l'erreur.

 

[job75]

Re : calcule entre textbox et combobox

Bonsoir lookdogs, le fil,

Puisque vous voulez calculer TextBox7, il ne faut pas mettre la formule de calcul dans la macro Private Sub TextBox7_Change().

Où vous voulez mais pas là !

A+

 

[néné06]

Re : calcule entre textbox et combobox

Bonsoir Job75, le fil,

Dans mon exemple le code se trouve bien en Combobox1 et Textbox1
Il est certain que placé en TextBox7, le programme n'appréciera pas trop.

A+

 

[lookdogs]

Re : calcule entre textbox et combobox

Salut,

Désolé pour ma réponse tardive!!!

Super merci pour vos réponses

J'ai récupéré la formule dans le classeur de néné06 et je l'ai adapté à mon classeur, ça marche très bien et j'ai compris mon erreur.

Merci encore a ++🙂