Erreur dans ma formule

Bonjour à tous

J'ai un petit souci dans une formule de calcul en VBA. en effet j'ai 1 Textbox pour y mettre un montant exemple 12,00 € un comboBox pour avec liste de choix 5% 10% 15% etc et une textBox pour le résulta si je multiplie 12,00€ par 10% par exemple j'aimerai obtenir 1.20€. le problème s'est que j' obtient 120,00€

Private Sub TextBox10_AfterUpdate()

'TextBox11.Value = Val(TextBox10.Value) * Val(ComboBox3.Value)

If Trim(TextBox10) <> "" Then TextBox10 = Format(CCur(TextBox10), "#,##0.00 €")

If Trim(TextBox11) <> "" Then TextBox11 = Format(CCur(TextBox11), "#,##0.00 €")

TextBox11.Value = CCur(TextBox10.Value) * Val(ComboBox3.Value)

End Sub

Private Sub ComboBox3_AfterUpdate()

TextBox11.Value = CCur(TextBox10.Value) * Val(ComboBox3.Value)

'TextBox11.Value = Val(TextBox10.Value) * Val(ComboBox3.Value)

If Trim(TextBox11) <> "" Then TextBox11 = Format(CCur(TextBox11), "#,##0.00 €")

End Sub

Je suis plus que débutant et je suis en train de découvrir excel et le VBA

Pourriez vous me dire ce qui cloche dans ce bout de code

Merci par avance

Cordialement

Oups j'ai remis le zip

Bonjour

Ton archive zip est vide (22 octets)

Pour ton problème : divises ce que tu obtiens par 100

Merci Banzai64 pour la réponse j'ai remis le fichier zip

pour le reste je ne voie pas ou le mettre le 100

Pour ton problème : divises ce que tu obtiens par 100

Cordialement

Bonjour

Une solution

TextBox11.Value = (CCur(TextBox10.Value) * Val(ComboBox3.Value)) / 100

Encore une x merci Banzai64

En effet il manquai pas grand chose

Sa marche nickel

Je vais pouvoir continuer

Cordialement

Re bonjour

Je me permet de revenir sur mon problème. En effet la formule fonctionne avec le / 100 .

pour un montant de 12€ x 10% = 1.20€ sa s'est ok mais quand je met 1000 x 10% j'ai 0,10€ comme réponse je ne comprend pas.

si quelqu'un à une idée

Cordialement

Bonsoir

Pour moi cela fonctionne

Joins ton fichier et indiques la démarche à suivre pour arriver au défaut

Bonsoir Banzai64

merci pour la rapidité des réponses et de leur qualité

je comprend pas ce qui s'est passé en effet j'ai tout repris et sa fonctionne

Merci encore

Cordialement