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