valeur maxiRésolu

Question

Bonjour, 
je voudrai savoir comment on fait pour sortir une valeur maxi d une listbox pour affiche dans un textbox
sachant que d autres valeurs vont venir s ajouter

ucfoutu · Accepted Answer

Bonjour,
en déclarant une valeur lamax, à laquelle tu donnes la valeur du 1er élément de ta liste.
en parcourant ta listbox ===>> tu y lis chaque valeur ===>> si valeur > lamax ===>> lamax = cette valeur
A l'issue de cette boucle, tu écris la valeur de lamax dans ta textbox.
Reviens avec ton code d'essai écrit sur ces bases si encore vraiment en difficulté.
 
________________________
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'interviend

ucfoutu · Answer

ok mais je voudrai les lignes de code 
Non.
Autant j'accepterai volontiers de corriger un code que tu auras au moins tenté d'écrire, autant je refuserai de te fournir un "tout cuit", surtout aussi simple.
Et tu vas s'il te plait te mettre un peu au travail.
Les articles d'une listbox ListBox1 sont indexés de 0 (le premier) à Listbox1.ListCount-1 (le dernier)
On parcourt une listbox en boucle, du premier jusqu'au dernier, part une boucle :
For i = 0 to listbox1.count -1...... du code ...Next 
ListBox1.List(i) lit l'article d'index i dans la listbox
Voilà !
Tu en sais assez pour travailler.

PS : lorsque tu auras passé cette étape, on parlera (et seulement alors) de l'alimentation de ta listbox. Car il est à peu près certain que c'est à ce moment-là et non à postériori, qu'il serait mille fois plus adroit de déterminer cette plus grande valeur (économie d'une boucle).
________________________
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'interviend

totoche · Answer

voici ligne de code renvoie valeur 0
Dim i As Integer
Dim a As Integer
 
For i = 0 To List2.ListCount - 1
List2.AddItem Trim(tab_capsule(i).Numero_Capsule)
a = a + List2.TopIndex
Text1 = a
 
 Next

ucfoutu · Answer

Le code que tu montres là ne fait qu'ajouter à la listbox et ce : autant de fois que tu as déjà des articles dans ce contrôle !
Et encore ! : ===>> si vide au départ ==>> tu n'en rajoutes même aucun (puisque listcount = 0 et que la boucle n'oprère alors même pas).
Il ne correspond en rien à ce que je t'ai dit de faire !
Quant à a = a + list2.topindex ===>> il ajoute 0 à 0 autant de fois que tu as d'articles !
Ce n'est pas sérieux du tout, du tout, du tout !
Relis ce que je t'ai dit plus haut et reviens avec du au moins raisonné.
 
________________________
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'interviend

ucfoutu · Answer

As-tu (apparemment non) au moins ouvert ton aide VB6 sur le mot AddItem (méthode AddItem) ?   Je viens de le faire et j'y vois un exemple : celui de l'ajout d'items en boucle !
J'ai également ouvert (l'as-tu fait ? je ne le crois pas) cette même aide VB6 sur le mot TopIndex (propriété TopIndex). Ce qu'est Topindex y est parfaitement expliqué (encore que le seul nom de cette propriété soit très ... révélateur ...)
As-tu au moins installé l'aide VB6 ? Si non ===>> à faire d'urgence avant de continuer à essayer de développer. Nui, même le plus avancé, ne saurait développer valablement sans cette aide VB6.
Ce forum, quant à lui, n'est pas un substitut à l'aide, mais là pour aider en cas de difficulté dans l'application de ce qui est exprimé dans cette aide.

EDIT : j'ajoute ici l'expression du pour le moins très grand étonnement que génère la constatation d'un paradoxe extraordinaire :
- le code montré ne laisse aucun doute sur la présence, dans cette application, d'un tableau de structures (ce qui nécessite un degré de connaissances et de compréhension assez "évolué").
- je ne parviens alors pas à comprendre que tu ne saches pas résoudre une difficulté de bas étage, alors même que, de surcroît, je t'avais "mâché" le travail. Je parviens encore moins à comprendre que tu aies pu présenter un code (celui que tu as montré) qui non seulement ne calcule (ni ne tend à calculer) ta valeur maximum, mais n'a en outre ni queue, ni tête, ni la moindre "raison".

EDIT 2 : Tiens ! de loin (de très très loin) et sans même voir ton application... juste en devinant ===>>>
Tu devrais également ouvrir ton aide VB6 sur le mot Ubound (fonction Ubound) et lire.
Pourquoi te dis-je cela ? Devine (si l'appli est de toi et non copiée/collée, tu ne devrais avoir aucune difficulté à comprendre où, dans ton cas, utiliser cette fonction).
Bonne chance
 
________________________
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'interviend

totoche1748 · Answer

ok je suis revenu 
voici mon code desole mais je n est pas la valeur maxi

'traite affichage valeur maxi
         Dim lmax As Integer
        Dim b As Integer
         For b = 0 To List10.ListCount - 1
        If IsNumeric(List10.List(b)) Then
        b = b + List10.List(b)
         Text1 = lmax
cela fait des années que je n ai plus pratique Age 71 ans il y a bien maintenant 10 ans
cordialement

vb95 · Answer

Bonsoir !
Qu'en est-il de ta dernière demande : https://codes-sources.commentcamarche.net/forum/affich-10094122-tri-d-une-list-box
? 
De plus déterrer un sujet vieux de 4 ans n'a aucun intérêt !
As-tu suivi les conseils de ucfoutu ?

Whismeril · Answer

Bonsoir,
comme es tu passé à VB.Net, si oui alors ce qui est a été écrit par Uc est encore faisaible, mais il y a maintenant plus simple.

vb95 · Answer

Bonjour !
En VB 6 et en se basant sur ton code que voici

'traite affichage valeur maxi 
Dim lmax As Integer 
Dim b As Integer 
For b = 0 To List10.ListCount - 1 
If IsNumeric(List10.List(b)) Then 
b = b + List10.List(b) 
Text1 = lmax  

si on le corrige cela donne ceci ( en supposant que la listbox ne contient que des valeurs entières de type Integer

' on prend la première valeur de la listbox comme max
Dim lmax as Integer = List10.List(0)) 
' on parcourt la Listbox à partir du second élément
For i = 1 to  List10.ListCount - 1 
' si supérieur à lmax on a un nouveau lmax 
    If Cint(List10.List(i)) > Lmax Then
            lmax = Cint(List10.List(i))
    End if
Next i
' lmax dans la Textbox
Textbox1.Text = Cstr(lmax)


possible qu'il y ait une erreur : cela fait 12 ans que je ne fais plus de VB 6

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.

totoche1748 · Answer

bonjour vb
voici mon code écrit  suivant tes conseils

Dim lmax As Intèger
Dim b As Integer
For b = 0 To List10.ListCount - 1
   If CInt(List10.List(b)) > lmax Then
            lmax = CInt(List10.List(b))
    End If
 Next
Text1.Text = CStr(lmax)

mais hélas ne marche pas par contre en suivant les conseils de ucfoutu et en écrivant ceci

' Déclare la variable.
   'Dim X
   ' Obtient l'index en cours.
  ' X = List10.TopIndex
   ' Redéfinit le premier élément.
  'List10.TopIndex = List10.TopIndex + 5
   'If List10.TopIndex = X Then List10.TopIndex = 0
   'Text1 = List10


EDIT : Ajout des balises de code (jordane)

on inscrit bien la valeur de la listbox mais c est la valeur sur laquelle on clique qui s affiche est non pas la valeur maxi
encore merci de répondre a mon problème cela n est surement pas marrant pour vous qui êtes surement plus doué que moi que d essyer de regler un probleme  alors que vous ne pratiquer plus en vb6

totoche1748 · Answer

bonjour
oui l aide est installe oui j ai regarde
je vais recommencer mais hier cela ne marchait pas

totoche1748 · Answer

re bonjour VB95

Private Sub List10_Click()
Dim lmax As Integer
Dim b As Integer
For b = 1 To List10.ListCount - 1
If CInt(List10.List(b)) > lmax Then
            lmax = CInt(List10.List(b))
            End If
            Next
            Text1.Text = CStr(lmax)

cela ne marche pas

totoche1748 · Answer

' on prend la première valeur de la listbox comme max
Dim lmax as Integer = List10.List(0)) 
' on parcourt la Listbox à partir du second élément
For i = 1 to  List10.ListCount - 1 
' si supérieur à lmax on a un nouveau lmax 
    If Cint(List10.List(i)) > Lmax Then
            lmax = Cint(List10.List(i))
    End if
Next i
' lmax dans la Textbox
Textbox1.Text = Cstr(lmax)
1234567891011


Private Sub List10_Click() 
Dim lmax As Integer 
Dim b As Integer 
For b = 1 To List10.ListCount - 1 
If CInt(List10.List(b)) > lmax Then 
 lmax = CInt(List10.List(b)) 
 End If 
 Next 
 Text1.Text = CStr(lmax

je pense que le code est ressemblant ou alors je deviens fou 
mais cela ne marche pas

totoche1748 · Answer

bonjour pour la énième fois

Private Sub List10_Click()
    Dim lmax As Integer
    Dim b As Integer
    lmax = 0
    For b = 1 To List10.ListCount - 1
If (List10.List(b)) >= lmax Then
                lmax = (List10.List(b))
                 Text1.Text = lmax
                End If
                Next
               
End Sub
voici mon code indique bien la valeur maxi mais indique type incompatible a la ligne if

vb95 · Answer

Regardes bien !

Private Sub List10_Click() 
Dim lmax As Integer 
Dim b As Integer 
lmax = 0 
For b = 1 To List10.ListCount - 1 
   If (List10.List(b)) > lmax Then ' ici supérieur à suffit
      lmax = (List10.List(b)) 
      Text1.Text = lmax ' cette ligne est mal placée
   End If 
Next 

La variable lmax n'est pas définie comme étant la valeur du premier élément de la liste :  tu le définis à 0 tout bonnement !
Il ne manque pas un mot derrière le If et avant la parenthèse ? 
Whismeril t'a donné un lien pour présenter un code lisible et correctement indenté : tu pourrais faire l'effort de le lire et de le mettre en application ! 
De plus cette ligne Text1.Text = lmax  bien que fonctionnant est incorrecte ! Où est le Cstr(lmax) qui transforme lmax qui est une valeur de type  Integer en chaine de caractères ? de plus cette ligne est mal placée
en code informatique la rigueur est indispensable

totoche1748 · Answer

'valeur maxi
   Dim lmax As Integer
    'Dim b As Integer
    lmax = 0
    For b = 1 To List10.ListCount - 1
    If CInt(List10.List(b)) > lmax Then
                lmax = CInt(List10.List(b))
                 Text1.Text = CStr(lmax)
                End If
                Next
voila meme en mettant cint devant parenthese cela ne marche toujours pas
oui tu dois en avoir marre mais je m excuse maintenant si tu veux tu arreter de me corriger
je le comprendrai
encore merci pour tout
un pas doue

vb95 · Answer

Dim lmax as Integer = Cint(List10.List(0)) 
For i = 1 to  List10.ListCount - 1 
    If Cint(List10.List(i)) > Lmax Then
            lmax = Cint(List10.List(i))
    End if
Next i
Text1.Text = Cstr(lmax) 

en recopiant ce code mot pour mot avec un copier- coller peux-tu me dire si il fonctionne correctement et dans le cas contraire ce qui cloche !

vb95 · Answer

Code corrigé pour totoche1748 
Merci Whis : Vb6 est bien loin pour nous !
Et on ne peut même pas tester nous-même : je n'ai plus VB 6 depuis pas mal d'années

Dim lmax as Integer
lmax = Cint(List10.List(0)) 
For i = 1 to  List10.ListCount - 1 
    If Cint(List10.List(i)) > Lmax Then
            lmax = Cint(List10.List(i))
    End if
Next i
Text1.Text = Cstr(lmax)

cs_Le Pivert · Answer

Bonjour,

comme ceci:

coller ton code ici:

ce qui donne ceci

et au final, c'est quand même plus lisible!

vb95 · Answer

Bonjour tototoche1748 Tu y es presque car dans ton message précédent il y a la balise de code de fermeture Donc reprenons 1) tu positionnes ton curseur à l'endroit où doit figuré ton code dans ton message 2) tu cliques le "triangle noir inversé" ( le cinquième icône dans la barre en haut du message) et tu cliques sur ton langage ( basic pour toi ) 3) il apparait alors ceci à la position du curseur ce sont les 2 balises de code Maintenant que les balises de code sont là où faut-il taper ou coller son code ? tu positionnes ton curseur entre ces 2 symboles >|< ( où se trouve le trait ) et tu n'as plus qu'à taper où coller ton code Une fois ceci fait tu peux vérifier si ton message est correct en cliquant sur "Prévisualiser" ( tu verras ton message tel qu'il apparaîtra sur le forum ) ensuite "Valider" envoie réellement le message sur le forum Donc pour le code que je te suggère Dim lmax as Integer, valeur as Integer Dim i As Integer lmax = Val(List10.List(0)) ' valeur premier élément de la liste For i = 1 To List10.ListCount - 1 valeur = Val(List10.List(i)) ' valeur élément suivant If valeur > lmax Then ' si valeur > lmax cette valeur devient lmax lmax = valeur End If Next i ' affiche lmax dans la TextBox Text1.Text = Cstr(lmax) Remarques les décalages pour les blocs For …. Next et If ….. End If Autre chose : tu viens de déposer ton message sur le forum et tu t'aperçois que tu as fait une erreur . Inutile de retaper un nouveau message . A droite de ton message apparaît un "crayon" et si tu vas dessus cela t'indique "Modifier" . Tu cliques dessus et tu peux modifier ton message . Une fois cela fait tu peux le prévisualiser et si tout est correct le valider et il sera de nouveau sur le forum . Si le "crayon" n'apparaît plus c'est que le message ne peut plus être modifier . En espérant que tu y arrives car sinon j'abandonne

Valeur maxi

36 réponses

Votre réponse