Discussion :

[campello]

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

[Pierre Fauconnier]

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

[campello]

Bonjour,

je vais être le plus clair que possible.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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