Comprend pas tout

:salut:

Code:

---

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

Citation:

---

Envoyé par lulux80

:salut:

Code:

---

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:

---

Ttot.text = nb

---

?

c'est pas plutôt

Code:

---

Ttot.text = masomme

---

?

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

avec

Code:

---

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:

---

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

attend, un truc m'échappe:

Code:

---

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

---

Code:

---

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:

---

Ttot = masomme

---

me mettai le 1er nombre mais avec

Code:

---

Ttot = nb

---

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

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

Code:

---

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:

---

Ttot = masomme

---

et

Code:

---

Ttot = nb

---

fais le calcul mais en arrondisant.

Vraiment désolé, je te suis pas. :roll:

Code:

---

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

---

Citation:

---

Envoyé par lulux80

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

---

Je suis pas d'accord, ici, en gras, tu affectes à Ttot.Text la dernière valeur de nb, qui dans ton code s'incrémente dans le For. La première valeur de nb = 0 et la dernière valeur vaut CDbl(tot.List(i).

Donc, tu affectes à Ttot.text CDbl(tot.List(i)

De plus, tu as la variable i, où est-elle incrémentée?

i n'est pas incrémentée donc c'est ça mon problème...

Code:

---

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)) masomme = masomme + CDbl(tot.List(i)) masomme = masomme + tot.ListCount Next Ttot.Text = nb End Sub

---

Lequel est le mieux des deux en gras ou c'est une erreur avec le listcount

Si t'as une réponse di moi

SI je comprends bien, pour résumer:

tu fais la somme de tout ce qu'il y a dans ta liste et tu veux afficher cette somme dans Ttot.text, c'est ça?

Dans ce cas, essaye ça:

Code:

---

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

Private Sub cmdresu_click()   Dim nb As Double Dim masomme As Double   For nb = 0 To tot.List(tot.ListCount) masomme = masomme + nb   Next   Ttot.Text = masomme   End Sub

---

ça me met un msg d'erreur : An error was encountered while running...string ("null")

erreur sur quelle ligne?

je ne peux pas te dire sur quelle ligne est l'erreur mais ça me met :

Citation:

---

An error was encountered while running this program : type mismatch: '[String:"(null)"]'

---

Voilà ce que ça me met :roll:

met un point d'arret au début de la fonction, et avance en pas à pas avec F8

Et comme ça?

Code:

---

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

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   End Sub

---

Code:

---

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

---