Comment savoir le label supérieur aux autresRésolu

Question

Bonjour



J&#146;ai 10 label1(x) dans chaque label il y a des chiffres


 


Comment savoir le label sup&#233;rieur aux autres


Je n&#146;arrive a le faire qu&#146;avec 2 label



Exemple :
If Label1.Caption > Label2.Caption Then


Me.Caption = Label1.Caption


end if


Merci d&#146;avance

marc660 · Accepted Answer

Merci pour votre r&#233;ponse


 


Mais le code me donne le 85 


'LbTaille(1).Caption = "242"


LbTaille(2).Caption = "4076"


LbTaille(3).Caption = "85"



Max = LbTaille(1).Caption
For cpt = 1 To 3
If LbTaille(cpt).Caption > LbTaille(cpt - 1) Then
Max = LbTaille(cpt).Caption
End If
Next
Me.Caption = Max

'Que dois-je faire

Merci d'avance

aieeeuuuuu · Answer

salut

ce que je te conseil c'est de cr&#233;er des label ayant tous les meme noms, avec des index diff&#233;rents.

comma ca tu peux les traiter facilement dans une boucle
au lieu d'avoir :
label1
label2
label3
...

tu as :
mesLabels(1)
mesLabels(2)
mesLabels(3)

ensuite tu fait :
Max = mesLables(1).caption
for cpt = 2 to nombreDeLabels
   if mesLabels(cpt).caption > mesLabels(cpt - 1) then
      Max = mesLabels(cpt).caption
   end if
next

et Max contient maintenant la plus grande valeurs de tous tes labels

marc660 · Answer

D&#233;soler pour le d&#233;rangement mais voila j'ai oublier de r'ajouter le Val

For cpt = 1 To 3
If Val(LbTaille(cpt).Caption) > Val(LbTaille(cpt - 1)) Then
Max = Val(LbTaille(cpt).Caption)
End If
Next


Merci beaucoup

Comment savoir le label supérieur aux autres

3 réponses

Discussions similaires