Discussion :

[lulux80]

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub cmdresu_click()
Dim nb As Double
For nb = 0 To CSng(tot.List(i))
masomme = masomme + nb
Next
Ttot.Text = nb
End Sub

Alors j'ai ce code là et mon problème est que le nombre qui se met dans Ttot est entier...
Par exemple, 4.5+4.12 = 8

Alors que ça devrai faire 8.62

Et je voudrai avoir 3chiffres après la virgule...merci

[Asdorve]

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub cmdresu_click()
Dim nb As Double
For nb = 0 To CSng(tot.List(i))
masomme = masomme + nb
Next
Ttot.Text = nb
End Sub

heu... es-tu sur que c'est bien

Code :

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

Ttot.text = nb

?

c'est pas plutôt

Code :

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

Ttot.text = masomme

?

au quel cas, comment déclares-tu masomme?

[lulux80]

avec

Code :

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

Ttot = masomme

le résultat est pas très bien ça me mets juste le 1er nombre qui se trouve dans la listbox 'TOT'

mais avec

Code :

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

Ttot= nb

le résultat est mieux mais c'est pas encore ça car ça m'arrondi.
Exemple :
0.345
+ 1.5
----------
= 2

alors que ça doi faire 1.845

[Asdorve]

attend, un truc m'échappe:

Code :

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

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

Private Sub cmdresu_click()
Dim nb As Double
For nb = 0 To CSng(tot.List(i))  ---> tu convertis tot.List(i) en single, non?

masomme = masomme + nb  --> tu incrémentes masomme, donc ça ne peut pas être le 1er nombre de ta listBox

Next

Ttot.Text = nb  --> tu affectes la dernière valeur de la liste à Ttot, non?

End Sub

[lulux80]

Code :

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

1
2
3
4
5
6
7
8
Private Sub cmdresu_click()
Dim nb As Double
Dim masomme As Double
For nb = 0 To CDbl(tot.List(i)) -->Je convertis tot.List(i) en décimal
masomme = masomme + CDbl(tot.List(i))
Next
Ttot.Text = nb
End Sub

pourquoi ça m'arrondi au chiffre supérieur...

Tu n'y es pas lol

Code :

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

Ttot = masomme

me mettai le 1er nombre mais avec

Code :

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

Ttot = nb

ça me fais le calcul mais en arrondisant, moi je voudrai 3 chiffre derière la virggule

[Asdorve]

Aide moi alors vu que j'ai du mal à saisir:

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub cmdresu_click()
Dim nb As Double
Dim masomme As Double
For nb = 0 To CDbl(tot.List(i)) -->Je convertis tot.List(i) en décimal
masomme = masomme + CDbl(tot.List(i))
Next
Ttot.Text = nb
End Sub

Montre moi en gras où est-ce que dans ton code

Code :

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

Ttot = masomme

et

Code :

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

Ttot = nb

fais le calcul mais en arrondisant.

Vraiment désolé, je te suis pas.

[lulux80]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub cmdresu_click()
Dim nb As Double
Dim masomme As Double
For nb = 0 To tot.ListCount - 1
masomme = masomme + CDbl(tot.List(nb))
Next
'MsgBox masomme
masomme = Round(masomme, 3)
Ttot.Text = masomme
End Sub