Calcul Textbox

Bonjour à tous,

dans mon userform, je souhaite multiplier 2 Textbox et obtenir un résultats en €.

TextBox7 = Format(TextBox7, "0.00%")

et

Textbox20 est un montant saisi

Je souhaite que ma textbox 6 multiplie ces 2 valeurs:

Me.TextBox6.Value = (Val(TextBox7.Value) / 100) * Val(TextBox20.Value)

Cependant en utilisant cette formule, si la valeur de la textbox 7 est de 0.15% alors le résultat donnera 0 car cette formule ne tient pas compte des chiffres après la virgule ...

pouvez-vous m'éclairer?

Salut,

Réponse rapide avant de partir ton problème vient de

Aide Excel :

Note La fonction Val ne reconnaît que le point comme séparateur décimal (.). Lors de l'utilisation d'autres séparateurs décimaux (applications internationales, par exemple), convertissez la chaîne en nombre à l'aide de la fonction CDbl.

essai:

TextBox7 = Format(TextBox7, "0,00%")

Me.TextBox6.Value = (CDbl(Left(TextBox7.Value, Len(TextBox7.Value) - 1)) / 100) * CDbl(TextBox20.Value)

Je suis peut être a coté...

damien

bonsoir,

J'interviens car je ne comprends pas vos formules.

Je viens de tester une mutiplication de 2 TextBox et cela fonctionne :

TextBox3 = Round(TextBox1 * TextBox2 / 100, 2)

Cordialement

Salut,

je ne parviens pas malgré vos solutions.

je vous joins le fichier.

Bonjour à tous,

Essaye un truc du genre :

Me.TextBox6.Value = (Val(Replace(TextBox7.Value,".",",")) ) * Val(Replace(TextBox20.Value,".",","))

ça devrait le faire! (sinon j'ai un truc plus bourrin dans un de mes fichiers pour les histoires de pourcentage mais il est long à ouvrir...)

Non toujours pas, ça ne prend pas en compte les chiffres après la virgule de mes pourcentage.

L'outils permet de récupérer des données sur un onglet, une fois les pourcentage récupérés, je souhaite que le calcul se fasse mais en tenant compte aussi des décimales des pourcentages, ce qui n'est pas le cas aujourd'hui.

oups, my bad, les points et les virgules sont dans l'autre sens!

Me.TextBox6.Value = (Val(Replace(TextBox7.Value,",",".")) ) * Val(Replace(TextBox20.Value,",","."))

Perso j'utilise ça :

Public Function ConvToValue(TxtToConv As String)
ConvToValue = Val(Replace(Replace(TxtToConv, ",", "."), "%", ""))
End Function