-------------------------------
Réponse au message :
-------------------------------
Dim iUB As Integer
Dim lTotal As Long
Dim iCmpt As Integer
iUB = List1.ListCount - 1 'Lire le nombre d'items...
For iCmpt = 0 to iUB
'Lire, convertir et additionner la valeur en cours...
lTotal = lTotal + CLng(List1.List(iCmpt))
Next iCmpt
Label1.Caption = Trim$(Str$(lTotal))
|
-------------------------------
Réponse au message :
-------------------------------
Bonjour à tous,
je cherche à faire quelquechose mais je ne sais pas si c'est en fait possible : j'aimerai aditionner chacune des valeurs numériques d'un listbox pour l'afficher dans un label.
Est-ce possible ? et si oui, comment faire pour récupérer chacune des valeurs de la listbox ?
D'avance merci pour ceux qui répondront.
Chimeres