somme d'une listboxRésolu

Question

Bonjour je souhaite faire la somme d'une listbox mais je comprend pas en quoi mon code es faux, alors pouvez vous m'aider svp. Mon code est le suivant :


Dim i, j As Integer
j = Liste.Lstb_pts.ListCount - 1
For i = 0 To j

total = total + Liste.Lstb_pts.List(i, 3)

Next

Label7 = total

Par exemple avec ce code j'obtiens : 10 + 0 + 0 + 0 + 100 = 10000100 alors je ne comprends plus rien...

lolokun · Accepted Answer

Bonjour,

Les éléments d'une listebox sont des chaines de caractères, il faut donc les convertir si tu veux les additionner en tant que chiffres..


L'expérience, c'est une connerie par jour, mais jamais la même..

stick25 · Answer

D'accord, merci pour l'information et comment faire alors ?

stick25 · Answer

J'ai essayé le code suivant mais une erreur au niveau de ma conversion.

Dim i, j As Integer
j = Liste.Lstb_dist.ListCount - 1
For i = 0 To j
Dim Nombre As Double
Nombre = CDbl(Liste.Lstb_dist.List(i, 3))

total = total + Nombre

Next

Ca se joue à pas grand chose je sais mais ça me ferait bien avancer. Merci

lolokun · Answer

Essayes plutôt avec Val, ou Cint

VOici un lien qui pourra t'être utile..


L'expérience, c'est une connerie par jour, mais jamais la même..

stick25 · Answer

C'est bon ça marche, une tite faute de frappe pour mon dernier code !! ^^

Un grand merci !!!!

lolokun · Answer

De rien, et penses à valider ton post avec le bouton réponse acceptée sur le ou les posts qui t'ont aidé à résoudre ton problème, cela pourra permettre à d'autres membres rencontrant le même souci de connaître la résolution.


L'expérience, c'est une connerie par jour, mais jamais la même..

stick25 · Answer

Je profite de ta gentillesse lolokun pour te poser une nouvelle question, du même ordre de difficulté que la précédente : j'ai écris le code suivant mais les conditions de mes if pose pb...si jamais qq'un pouvait me dire où je fais faux ! Dim i, j As Integer j = Liste.Lstb_pts.ListCount - 1 For i = 0 To j If Liste.Lstb_pts.List(i, 3) = 0 And Liste.Lstb_pts.List(i - 1, 3) <> 0 Then tdep = Lstb_pts.List(i - 1, 3) End If If Liste.Lstb_pts.List(i, 3) = 0 And Liste.Lstb_pts.List(i + 1, 3) <> 0 Then tfin = Lstb_pts.List(i + 1, 3) End If Next Label7 = tdep Label8 = tfin Merci !

cs_Galain · Answer

Salut  stick25
Tout d'abord pour une nouvelle question il est vivement conseillé de créer un nouveau post sur le forum

Les conditions des if te posent problème
1) si i 0 ( en début de boucle) Liste.Lstb_pts.List(i - 1, 3) pose problème car i -1 -1 : les index dans une liste vont de 0 à Liste.Listcount -1
2) Le même problème se posera dans le second if lorsque i sera = à Liste.Listcount - 1 ( en fin de liste) : Liste.Lstb_pts.List(i + 1, 3) n'existera pas 
en espérant t'avoir éclairé

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

cs_Galain · Answer

Que veux-tu faire exactement ?

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

stick25 · Answer

Mon problème est le suivant : dans la 4ième ligne de ma listbox "Liste.Lstb_pts" j'ai par exemple les valeurs suivantes :
...
t1
0
0
0
0
t2
...
j'aimerais alors pouvoir récupérer les valeurs t1 et t2.

Merci d'avance.

stick25 · Answer

J'écris le code suivant, mais toujours un problème avec mes if ! Dim i, j As Integer j = Liste.Lstb_pts.ListCount For i = 1 To j If Liste.Lstb_pts.List(i, 3) = 0 And Liste.Lstb_pts.List(i - 1, 3) <> 0 Then tdep = Liste.Lstb_pts.List(i - 1, 3) End If Next Dim u, v As Integer v = Liste.Lstb_pts.ListCount - 1 For u = 0 To v If Liste.Lstb_pts.List(u, 3) = 0 And Liste.Lstb_pts.List(u + 1, 3) <> 0 Then tfin = Lstb_pts.List(u + 1, 3) End If Next

cs_Galain · Answer

si je comprends bien ta listbox est remplie de valeurs 0 sauf deux lignes qui contiennent les valeurs début et fin
J'ai un doute car quelque chose me dit que ta listbox est à plusieurs colonnes
donc sur la 4° ligne tu as plusieurs valeurs sur un certains nombre de colonnes et seulement 2 de ces valeurs sont différentes de 0 et c'est celles-ci que tu veux récupérer
Est-ce bien cela ?


La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

stick25 · Answer

Merci Galain pour ton intéret à mon problème. 
En fait j'ai une listbox avec 4 colonnes. Chaque ligne correspond à un point connu en coordonnées et temps de passage (X,Y,Z,t). Dans la 4ième colonne je peux avoir des valeurs à 0 (du à des calcul préalables). Par exemple je peux avoir les valeurs suivante :

30700
30701
30703
0
0
0
0
30741
30750

J'aimerais alors récupérer dans cet exemple tdep=30703 et tfin=30741 !
Merci de ton aide.

(Quand j'arriverai à procéder ainsi, j'aimerais pouvoir gérer plusieurs succession de 0 mais on en est pas encore là...)

cs_Galain · Answer

donc résumons
tu as une listbox à 4 colonnes : les colonnes sont X,Y,Z et t
Le problème se situe sur la 4° colonne : celle des t

Dim i As Integer, j As Integer
    For i = 0 To Liste.Lstb_pts.ListCount - 1
        ' on cherche tdep
        If Liste.Lstb_pts.List(i, 3) = 0 And i > 0 Then
            tdep = Liste.Lstb_pts.List(i - 1, 3)
            Exit Do
        End If
    Next i
    ' on cherche tfin
    For j = i + 1 To Liste.Lstb_pts.ListCount - 1
        If Liste.Lstb_pts.List(j, 3) <> 0 Then
            tfin = Liste.Lstb_pts.List(j, 3)
            Exit Do
        End If
    Next j


La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

cs_Galain · Answer

Il y a 2 contraintes
la première valeur t de la 4° colonne ainsi que la dernière valeur t de cette même colonne ne peuvent pas être des 0
- pour la première valeur = à 0 cela signifierait qu'il n'y a pas de tdep avant les premiers 0
- pour la dernière valeur = à 0 cela signifierait qu'il n'y a pas de tfin après les derniers 0


La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

stick25 · Answer

Merci Alain mais deux problèmes persistent :

- avec ton code il me met "Exit do pas à l'intérieur d'une boucle do...loop"
- j'ai l'impression que ton code ne peut marcher que pour des données type :
30703
0
30712

et non 
30703
0
0
30712

car tu test pas la ligne i-1 pour tdep.

Merci de ton aide

cs_Galain · Answer

1) Désolé pour ma bêtise : remplace les 2 Exit Do par Exit for
2) Pour tdep je teste la première ligne avec la valeur 0. Dès que je la trouve la ligne précédente est la ligne tdep

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

cs_Galain · Answer

Je viens de tester avec un exemple sur une listbox à une seule colonne
37017
37018
37019
0
0
0
0
37020
37021
37022

Cela me donne tdep 37019 et tfin 37020 avec le code précédent et en mettant Exit For ( et non Exit do évidemment)

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

stick25 · Answer

Et bien un grand merci Alain !! Ca marche, c'est super. J'essaierai peut-être plus tard de gérer plusieurs série de 0 mais je ne voie pas encore trop comment m'y prendre donc on verra en temps voulu. Je profite de ta disponibilité pour une autre petite question. Je suis désolé de le faire sous le même sujet de forum mais je profite du fait que tu ais participé à la discussion.

Je souhaiterais ajouter une ligne dans cette même listbox (déjà remplie). J'arrive à ajouter une ligne à la fin de la liste (position par défaut je présume) mais je voudrais l'insérer à une ligne donnée.
Je m'explique : ma listbox est donc formée de 4 colonnes correspondant aux coordonnées X,Y,Z et t (temps) de plusieurs points. J'ajoute alors une ligne en précisant ces 4 paramètres. Mais je n'arrive pas à la faire s'insérer où je veux : je veux qu'elle s'insère en fonction de la valeur de t. Mes points sont déjà classés selon t dans l'ordre croissant.
Par exemple si mon nouveau point a t=38500 je voudrais qu'il s'insère à la ligne suivant t=38499 et précédent t=38505 (par exemple). On suppose qu'il n'y a pas de valeur 0 dans la colonne t.
Et j'ai vraiment beaucoup de mal et rien de concret pour l'instant.
J'avais alors pensé parcourir la liste avec un while, un for en disant tant que t à insérer > aux t de la liste on continue de parcourir la liste et dès que t à insérer devient < aux t de la liste ; on retient la position.
Mais j'arrive pas à traduire ceci en ligne de code, même si je pense que c'est pas trop compliqué. Il faut juste que je récupère la position, après pour l'insertion je sais comment faire.
Pour le point que j'insère, je donne ces valeurs par :
Txtb_x
Txtb_y
Txtb_z
Txtb_t

Ma listbox est Liste.Lstb_pts.

Merci de ta précieuse aide !!

cs_Galain · Answer

Prenons un exemple

37025
37026
37028
37030
37031
37032

On veut insérer 37029

dim insere as string
insere = "37029"
for i = 0 to Liste.listcount -1
    if insere > liste.list(i) then
         ' on insére la nouvelle ligne à la position i (l'ancien i devient i +1)
    end if
next i


La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

cs_Galain · Answer

"if insere > liste.list(i) then" à remplacer par "if insere < liste.list(i) then"

Décidément j'arrête pas de faire des bêtises 

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

stick25 · Answer

Merci Alain pour ta réponse si rapide.

J'ai écris le code suivant :

For i = 0 To Liste.Lstb_pts.ListCount - 1
If Txtb_x < Liste.Lstb_pts.List(i, 3) Then
Liste.Lstb_pts.AddItem Val(Txtb_x.Text), i
Liste.Lstb_pts.List(i, 1) = Val(Txtb_y.Text)
Liste.Lstb_pts.List(i, 2) = Val(Txtb_z.Text)
Liste.Lstb_pts.List(i, 3) = Val(Txtb_t.Text)
' on insére la nouvelle ligne à la position i (l'ancien i devient i +1)
End If
Next


mais mon nouveau point s'insère autant de fois qu'il y a de point dans ma liste "Lstb_pts" et en toute première position... si jamais tu peux m'éclairer !

cs_Galain · Answer

crée un nouveau projet avec une form et une listbox appelée Liste
Dans le Form.Load de cette feuille colles-y ce code et exécute le

tu verras que 3759 s'est inséré dans la liste à la bonne place
a toi de t'en inspirer


    Dim inserte As String
    Dim i As Integer, j As Integer
    
    Liste.AddItem "3728"
    Liste.AddItem "3738"
    Liste.AddItem "3748"
    Liste.AddItem "3758"
    Liste.AddItem "3768"
    Liste.AddItem "3778"
    Liste.AddItem "3788"
    Liste.AddItem "3798"
    inserte = "3759"
    For i = 0 To Liste.ListCount - 1
        If inserte < Liste.List(i) Then
            ' on insére la nouvelle ligne à la position i en  3 étapes
            ' 1) on rajoute la dernière ligne
            Liste.AddItem Liste.List(Liste.ListCount - 1)
            ' 2) on descend toutes les lignes de Listcount-3 à i d'un cran
            For j = Liste.ListCount - 3 To i Step -1
                Liste.List(j + 1) = Liste.List(j)
            Next j
            ' 3) on insère notre ligne
            Liste.List(i) = inserte
            Exit For
        End If
    Next i



La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

stick25 · Answer

Un énorme merci Alain, c'est génial, ça marche !!! Tu mets fin à beaucoup de prises de tête !

Je pense avoir compris tout le code, mais peux-tu m'expliquer l'intérêt d'utiliser step-1 ?

J'ai un dernier problème qui me permettra de boucler mon programme. J'ai du mal à le résoudre mais je pense que si je comprend bien step-1 je pourrai peut-être y arriver.
Mon problème est le suivant ; je veux maintenant supprimer une ligne en précisant la valeur de t à supprimer. Mon code est le suivant :

Dim i As Integer
For i = 0 To Liste.Lstb_pts.ListCount - 1

If Suppression.Txtb_suppr_t = Liste.Lstb_pts.List(i, 3) Then
Liste.Lstb_pts.ListIndex = i
Liste.Lstb_pts.RemoveItem (i)

ElseIf Suppression.Txtb_suppr_t <> Liste.Lstb_pts.List(i, 3) Then
MsgBox "Point spécifié non trouvé dans la liste", 0, "Erreur"

End If
Next

Mais il me met autant de fois la msgbox d'erreur que le nombre d'élément de la liste et même si la condition du if est vérifiée, il me met quand même la msgbox avant de supprimer la ligne et d'arrêter le programme à cause d'erreur. Je comprends à peu près pourquoi j'ai cette erreur, mais je n'arrive pas à la corriger.
Donc si jamais tu as encore 5min de ton temps à me consacrer ça serait génialissime !!
Merci d'avance!

cs_Galain · Answer

Reprenons notre exemple
nous avons la liste 3728,3738,etc... jusqu'à 3798
Pourquoi le Step -1 ?
tout d'abord For i 1 to 10 boucle pour i 1,2,3,4............jusqu'à 10
For i = 10 to 1 Step -1 fera de même mais de 10,9,8,7 .........3,2,1
On peut faire For i = 0 to 10 Step 2 et on n'aurait que les i pairs(0 ,02 , 4 , 6 , 8 et 10)
Step signifie pas en anglais


    Liste.AddItem "3728"
    Liste.AddItem "3738"
    Liste.AddItem "3748"
    Liste.AddItem "3758"
    Liste.AddItem "3768"     4) idem et on insère notre nouvelle ligne
    Liste.AddItem "3778"     3) on descend cette ligne en dessous
    Liste.AddItem "3788"     2) on descend cette ligne en-dessous
    Liste.AddItem "3798"     
                             1) Liste.Additem "3798" pour descendre la dernière valeur

inserte = "3759"
    
Dans l'exemple on insère 3759 dans la liste

si on faisait sans le Step -1 et dans l'odre croissant de i pour la première boucle la valeur 3768 en descendant écraserait la valeur 3778 et ainsi de suite

Pour ton nouveau problème c'est toi qui ne réfléchit pas assez à ta procédure
Je vais te la faire en bon français

Déclarer i comme integer (Dim)
dim suppression as boolean (indique si suppression faite ou non)

suppression = fausse (elle n'est pas faite)
Pour i 0 à nombredelignes -1 (For i ......)
    Si Valeuràchercher = Celledelaliste  ( If etc....)
        Supprimer la ligne i
        suppression = vraie (elle est faite)
        Sortir de la boucle par Exit for
    fin si (End if)
Prochain i (Next i)
si suppression est faux 
    Message "La valeur t n'a pas été trouvée" 
fin si



La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

cs_Galain · Answer

Au cas tu n'y arrives pas je te donnerai évidemment la solution mais il faut bien que tu bosses aussi un peu
A+

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

stick25 · Answer

Merci Alain, c'et bon, ça marche !!

Vraiment merci pour ta gentillesse. Désolé de toutes mes questions mais vu que je suis débutant, je n'ai pas encore tout les bons réflexes !!

Merci

cs_Galain · Answer

Rassures-toi : on a tous débuté un jour mais avec l'expérience et les conseils d'autrui les résultats sont plus qu'encourageants
bonne prog et A+

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

chakourcsharp · Answer

bonjour!

 j'ai un question,comment on peut faire la somme des plusieurs items dans une

 liste (ListBox) et afficher la somme dans une zone de texte(TextBox) tous ça apres une click sur 

le button(Button),

ucfoutu · Answer

Bonjour,
je veux croire que ton problème est uniquement la somme et pas le reste, bien trop élémentaire (le bouton et l'inscription du résultat !).
Et si tu relisais plus attentivement la présente discussion ? Car tu y as ta réponse dès la 1ère page 



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Somme d'une listbox

30 réponses

Votre réponse

Discussions similaires