Addition dans une listbox
gbegnonghislain
Messages postés
51
Date d'inscription
mercredi 5 octobre 2005
Statut
Membre
Dernière intervention
5 août 2009
-
2 janv. 2006 à 17:11
TomIlliev Messages postés 86 Date d'inscription vendredi 27 décembre 2002 Statut Membre Dernière intervention 13 octobre 2016 - 2 janv. 2006 à 23:48
TomIlliev Messages postés 86 Date d'inscription vendredi 27 décembre 2002 Statut Membre Dernière intervention 13 octobre 2016 - 2 janv. 2006 à 23:48
1 réponse
TomIlliev
Messages postés
86
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
13 octobre 2016
2
2 janv. 2006 à 23:48
2 janv. 2006 à 23:48
Salut,
Facile...
Function SommeList(Lst as listBox) as currency
dim i as integer
dim X as currency
with lst
for i=0 to .listCount-1 'Boucle sur tout les Items
x=x+val(.list(i)) 'Somme Intermédiaire
next i
end with
SommeList=X 'Renvoie la somme
end function
Voilà
a+
Tomilliev
Facile...
Function SommeList(Lst as listBox) as currency
dim i as integer
dim X as currency
with lst
for i=0 to .listCount-1 'Boucle sur tout les Items
x=x+val(.list(i)) 'Somme Intermédiaire
next i
end with
SommeList=X 'Renvoie la somme
end function
Voilà
a+
Tomilliev