krouks212
Messages postés25Date d'inscriptionmercredi 25 janvier 2006StatutMembreDernière intervention 1 février 2008 30 janv. 2008 à 14:21
salut, je suis d'acord avec tout le monde t'a pas bien précisé ta demande, mai j'ai vue dans l'autre poste que tu as déja créé ce code:
Private Sub cmdTotal_Click() Dim s As Double
Dim i As Integer
s = 0
For i = 0 To lstNote.ListCount - 1
s = s + lstNote.List(i)
lblTotal.Caption = s
Next i
End Sub
donc tu veux fair la somme d'une liste qui contien des articles de type double.si j'ai bien compri
alors:
Private Sub cmdTotal_Click() Dim s As Double
Dim i As Integer
s = 0
For i = 0 To lstNote.ListCount - 1
s = s + val(lstNote.List(i))
Next i