addition de toutes les lignes d'une listbox

Question

Bonjour,

j'ai une listbox dans laquelle s'inscrit des nombres lorsque je sélectionne une ligne d'une autre listbox puis que j'appuie sur un bouton.
j'aimerais qu'au fur et à mesure que les nombres s'inscrivent dans ma listbox, le total se fasse (sans appuyer sur un autre bouton) dans un label.

merci

liz739 · Answer

je pense que le fait d'appuyer sur le bouton qui ajoute les nombres peut me faire mon total de toutes les lignes de ma listbox. mais comment ?

ehjoe · Answer

Bonjour liz n°739,

En fait oui, il faut récupérer la valeur de la ligne validée de la liste, donc :


dim total as double = 0.0 ' en global
sub form1_load...()
label1.text=""
end sub

sub click bouton actuel()
total = total + cdbl(listbox1.items(listbox1.indexselected))
label1.text = total
end sub
' non testé


Cordialement, Joe.

liz739 · Answer

étant étudiante et surtout ne connaissant que très peu la vba, une erreur d'execution 424 s'affiche pour la ligne label1.text="" (j'ai remplacé par le bon label)
j'ai placé dim ..... avec les types et les variables définis tout en haut de ma feuille.
je n'ai pas compris a quoi correspondait le "form1_load..."

ucfoutu · Answer

Bonjour, liz739,

étant étudiante et surtout ne connaissant que très peu la vba, une erreur d'execution 424 s'affiche pour la ligne label1.text="" (j'ai remplacé par le bon label)
j'ai placé dim ..... avec les types et les variables définis tout en haut de ma feuille.
je n'ai pas compris a quoi correspondait le "form1_load..."

Tous ces "petits malheurs" arrivent generalement lorsque, developpant sous VBA mais ouvrant un discussion sous VB.Net, on recoit un bout de code en VB.Net (qui n&#180;est pas du VBA) 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ehjoe · Answer

Ah, alors en VBA il s'agit du nom de ta première procédure quand tu ouvre une nouvelle feuille, qui remplace form1_load

Pour le nom des objets je ne pouvais deviner et en plus je pensais que tu étais en vbNet...

Cordilement, Joe.

DevLama · Answer

Pour connaître le Total des elements ajoutés dans ta listbox
utilise la propriété ListCount

'Dans le bouton
label1.Caption=List1.ListCount
pour vb6
'Pour le VB.Net
Label.Text=listbox.Itemscount


 Hornel LAMA

liz739 · Answer

merci mais que dois-je mettre alors avant
label1.Caption=List1.ListCount
?

liz739 · Answer

juste un petit souci en fait, il compte les lignes au lieu de calculer la somme des chiffres inscrits

liz739 · Answer

Public Sub Total()
Dim tot As Single
For i = 0 To UserForm1.ListBox3.ListCount - 1
tot = tot + CDbl(UserForm1.ListBox3.List(i))

UserForm1.Montant.Caption = tot

Next i
End Sub

qu'en pensez-vous ?

a force de persévérance, on n'y arrive !! 

merci à tous !!

d'autres soucis mais je vais refaire une discussion, encore merci !

ucfoutu · Answer

Tu ne t y prends pas forcement tres bien, liz739

Que tu utilises une boucle pour totaliser la toute premiere fois, c est bien.
Que tu le fasses a chaque rajout, cela l est beaucoup moins
Repense cet aspect : puisaue tu as deja un total dans ton label >>> il te suffit d ajouter ensuite, a chaque rajout, la valeur du rajout a celle du label.
d'autres soucis mais je vais refaire une discussion, encore merci 
En prenant cette fois-ci le soin, STP, d ouvrir ta discussion la ou il convient a savoir
Langages derives VBA 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

liz739 · Answer

ok je vais revoir ça un peu alors.
et dsl mais c'est la première fois que je venais et je savais pas trop ou placer ma discussion
merci encore

Addition de toutes les lignes d'une listbox

11 réponses

Votre réponse

Discussions similaires