Addition VBA Pb

Bonjour,

Je recherche la solution depuis un peu de temps.
Je n'arrive pas avoir ma somme en HT avec les décimales.

cela se trouve dans mon userform .

Avez vous des pistes sur ce genre de sujet !

Merci d'avance

Campello

Bonjour

Sans le code, on peut jouer aux devinettes longtemps...

1ière (et dernière) devinette: Tu as peut-être déclaré tes variables as long

Bonjour,

je vais être le plus clair que possible.

j'ai plusieurs textbox qui sont alimenter comme cela (par d'autres textbox)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub TextBox19_Change() TextBox35 = "" If TextBox19 = "" Then Exit Sub If TextBox27 = "" Then Exit Sub TextBox19 = Replace(TextBox19, ".", ",") TextBox35 = Format(CDbl(TextBox19) * CDbl(TextBox27), "0.00") End Sub Private Sub TextBox27_Change() TextBox35 = "" If TextBox19 = "" Then Exit Sub If TextBox27 = "" Then Exit Sub TextBox27 = Replace(TextBox27, ".", ",") TextBox35 = Format(CDbl(TextBox19) * CDbl(TextBox27), "0.00") End Sub

---

.......
Jusque ici, tout va bien car les infos sont bien transcrites.

Ce code s'appliquer sur une serie de plusieurs Textbox.

Je bloque ici :

Dans cet exemple, je recherche a ajouter dans des textboxs nommées HT, tva, TTC l'addition de le textbox35 + textbox36..... et faire les multiplications qui vont bien mais,
j'ai un mesage qui me bloque lorsque ma textbox36 et les suivantes sont vides

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub TextBox35_Change() HT = "" TVA = "" TTC = "" If TextBox35 = "" Then Exit Sub TextBox35 = Replace(TextBox35, ".", ",") 'HT = Format(CDbl(TextBox35) + CDbl(TextBox36) + CDbl(TextBox37),"0.00") HT = CDbl(TextBox35) + CDbl(TextBox36) + CDbl(TextBox37) TVA = Format(CDbl(TextBox35) * 0.196, "0.00") TTC = Format(CDbl(HT) + CDbl(TVA), "0.00") End Sub

---

Je vous remercie par avance et espère avoir été clair.

Bien cordialement

campello