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)

totoche1748 · Answer

pour repondre a vb95

code recopier ce la me met erreur 13
type imcompatible
quand a whismeril non je ne m en fiche pas
meme si je ne suis pas bon j ecoute et regarde ce que l on me dit

jordane45 · Answer

Bonjour,

J'espère que tu vas LIRE et COMPRENDRE une bonne fois ce qu'on te dit concernant la façon de poster ton code sur le forum...
 Tu dois utiliser 
 LES BALISES DE CODE 
Merci.

totoche1748 · Answer

pour vb95

dans la listbox il y a des valeurs sans virgule
comme 10 15 58 12 17 etc
toujours le meme message d erreur

totochette1748 · Answer

bonjour vb95
ligne de code qui bloque
If CInt(List10.List(i)) > lmax Then
le code s arrête sur cette ligne  et affiche erreur d exécution 13
type incompatible

totoche1748 · Answer

bonjour
message pour vb95

Dim lmax As Integer
    Dim i 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))
            Text1.Text = CStr(lmax)
    End If
Next i


EDIT : Ajout des balises de code (jordane)

bloque sur ligne if 
message type imcompatible erreur 13

jordane45 · Answer

Je viens de supprimer ton dernier message... vu que tu n'as toujours pas compris !

Dernier rappel vu que tu continues de poster du code sans mise en forme !
Pour poster ton code... 
 TU DOIS UTILISER LES BALISES DE CODE 
Explications disponibles ICI : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code


Si tu persistes.... je supprime complètement cette discussion !
Est-ce clair cette fois ????

vb95 · Answer

Bonjour totoche1748
Essaie ceci

Dim lmax as Integer, valeur as Integer     
Dim i As Integer
lmax = Val(List10.List(0))
For i = 1 To List10.ListCount - 1
    valeur = Val(List10.List(i))
    If valeur > lmax Then
            lmax = Val(List10.List(i))
            Text1.Text = Cstr(lmax)
    End If
Next i

totoche1748 · Answer

bonjour VB95
voici mon code comme tu me la formule

Private Sub List10_Click()
   'valeur maxi
    Dim lmax As Integer, valeur As Integer
    Dim i As Integer
lmax = Val(List10.List(0))
For i = 1 To List10.ListCount - 1
   valeur = Val(List10.List(i))
            lmax = Val(List10.List(i))
            Text1.Text = CStr(lmax)
    
Next
End Sub
ce code marche mais renvoi la valeur 0
encore merci de ta réponse
je continue a regarder et j écoute malgré ce que beaucoup pense

totoche1748 · Answer

bonjour jordane
je ne sais pas si j ai un manque de neurones mais peut etre ne sont telles pas adaptées a la programmation mais je pense qu elles suremant valable dans d autre sujet que peut être tu ne connais pas 
 maintenant si tu crois que de parler de la sorte fera avance le probleme libre a toi
attention quand même a toi car toi aussi tu perds des neurones par milliers tous les jours
donc a 71 ans il t en manquera surement aussi beaucoup

totoche1748 · Answer

re bonjour jordane


plutôt que de me renvoyer vers vers un lien systématiquement
peut etre serait il plus simple d expliquer clairement avec un exemple
tout simple alors surement je comprendrai
merci

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!

totoche1748 · Answer

en esperant que c est cela Dim i As Integer lmax = Val(List10.List(0)) For i = 1 To List10.ListCount - 1 valeur = Val(List10.List(i)) If valeur > lmax Then lmax = Val(List10.List(i)) Text1.Text = Cstr(lmax) End If Next i end sub maintenant je sais que vous êtes bénévoles et cela est tout a votre honneur moi aussi je répond bénévolement sur d autre sites concernant d autre activite j essai toujours de rester courtois j espère avoir compris votre façon de travailler

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

totoche1748 · Answer

bonjour vb
  'valeur maxi
  Dim lmax As Integer, valeur As Integer
Dim i As Integer
lmax = Val(List10.List(0))
For i = 1 To List10.ListCount - 1
    valeur = Val(List10.List(i))
    If valeur > lmax Then
            lmax = Val(List10.List(i))
            Text1.Text = CStr(lmax)
    End If
Next i
j espere que c est cela maintenant
il faut juste expliquer correctement 
encore merci a VB95 qui lui ce mets au niveau des moins doue c est cela etre bénévoles et c est comme cela que l'on avance
maintenant je ne vois pas le crayon
ps le dernier code que tu as poste marche
je te remercie tres sincèrement
maintenant sur ce que je vois n 'apparait pas les numeros de lignes
encore merci si c est bon cette fois me le dire pour peut etre une prochaine question

totoche1748 · Answer

bonjour
pour vb95
ok j ai tout meme le crayon
merci

vb95 · Answer

Bonjour !
il n'y a aucune honte à dire que l'on ne comprend pas et surtout à l'âge vénérable que vous avez ( en passant je vous suis à 3 ans près de retard )
Bienheureux que cela fonctionne enfin pour vous ! C'est en cherchent sur le Net que je me suis souvenu de la différence entre les fonctions Val et Cint de VB6 .
Un dernière chose : reste à fermer cette discussion . En effet si tout cela vous convient et que le problème est solutionné regardes au premier message posté : à droite tout en haut il y a des icônes en gris . clique sur la "Roue dentée" et sélectionne "Marqué comme résolu" .
Cela fermera cette discussion et indiquera sur le forum que ce problème est résolu !
En vous souhaitant plein de bonnes choses en programmation et dans d'autres domaines aussi !

totoche1748 · Answer

rerebonjour
encore merci a vb95
non je n ai pas honte de dire que je n avais pas compris 
ce qui n est pas bien se sont les paroles de certains
pour expliquer restons courtois 
encore merci

vb95 · Answer

J'ai mis le sujet en "résolu"

Valeur maxi

36 réponses

Votre réponse

Discussions similaires