Variables plus petiteRésolu

Question

Salut tout le monde, voilà j'ai 5 label, dans chacune de ses label j'ai 1 nombre : 
8-1-10-8-7
j'aimerai une fonction, ou autre qui me dise que le plus petit des 5 nombres; est le n° 1 et que le nombre le plus grand est le n°10.
Je vous remercie d'avance pour vos idée, bonne fin de week-end

:)Sator :)

cs_Sator · Accepted Answer

En fait j'ai fait comme ça:
   dim mini as integer
   mini=val(label(1))
for i = 1 to 5
   if mini > val(label(i)) then mini= val(label(i))
next

Merci pour votre attention. Bonne semaine
:)Sator :)

jmfmarques · Answer

Bonsoir,

Des indications uniquement (car je sais qu'il s'agit là d'un exercice.... je l'ai traité récemment sur un autre forum...)

1) éclate le contenu de ton label (fonction Split)
2) travaille en boucle en substituant à chaque tour le plus petit et le plus grand au plus petit et au plus grand trouvés jusqu'alors.

Bon travail.

jmfmarques · Answer

Ah pardon ... 5 labels, je vois...
Encore plus simple (puisque l'éclatement n'est plus nécessaire).
Un groupe de labels indexés fait l'affaire ...

us_30 · Answer

euh... moi si j'ai 5 valeurs, j'ai pas de bessoin d'un programme pour trouver le mini et le maxi... 

Amicalement,
Us.

cs_Sator · Answer

Petite réponse à Us....
Ne t'en fais pas pour moi je sais encore compter, et ce n'est pas 5 chiffres qui vont me faire ch...... en fait je fais un logiciel de statistique prévisionnel, et c'est un contrôle qui vient confirmer ou infirmé ce que j'ai choisi la semaine précèdente.
Amicalement ....

Petite réponse à jmfmarques, je te remercie pour ta réponse, j'y avais bien pensé mais je me disais qu'il y avait peut-être une fonction pour du genre mini(8-1-10-8-7)... voilà merci tout de même

:)Sator :)

Renfield · Answer

tu peux faire :

Public Function Min(ParamArray vxzValues() As Variant) As Variant
Dim i As Long
    For i = 0 To UBound(vxzValues)
        If i = 0 Or Min > vxzValues(i) Then
            Min = vxzValues(i)
        End If
    Next i
End Function

Renfield · Answer

ta boucle peut commencer son tour à 2

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_Sator · Answer

Effectivement, je te remercie de l'avoir signalé.

:)Sator :)

Variables plus petite

8 réponses

Votre réponse

Discussions similaires