Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'On additionne les fissures
Dim var As Integer
Dim total As Double
total = 0
For var = 0 To ListBox1.ListCount - 1
If ListBox1.List(var) <> "" Then
total = total + CDbl(ListBox1.ListCount - 1)
End If
Next var
total = Round(total, 3)
Label49.Caption = total
If ListBox1.List(var) <> "" Then
total = total + CDbl(ListBox1.ListCount - 1)
End If
Si le séparateur décimal est bien le point que tu montres : utilise la fonction Val
Je dis bien : si c'est bien un point et non une virgule. Car si virgule, utilise d'autres fonctions (ouvre ton aide VBA sur le mot Cdec, par exemple, et lis ).