< ou > de plusieurs variables

[pacoako]

Bonjour tout le monde!

Je reformule une question posé précédemment car je n'ai pas été assez précis dans mes propos..

==========================
Sub Exemple

Dim Variable as Variant (0 to 99)

Variable(0) = 12319
Variable(1) = 232189
Variable(2) = 8329289289
Variable(3) = 432542
etc..

End Sub
==========================

Je veux savoir s'il est possible de trouver la plus petite valeur contenue par les index de ma variable avec une fonction vba... les nombre après les « = » sont évidemment aléatoire....


Merci encore une fois pour votre précieux temps! a ++

 

[kjin]

Re : < ou > de plusieurs variables

Bonsoir,

Sub Exemple
Dim Variable(0 to 4) as Variant
Variable(0) = 12319
Variable(1) = 232189
Variable(2) = 8329289289
Variable(3) = 4325
Variable(4) = 432542
Msgbox Application.Min(Variable) 'donne 4325
End Sub

A+
kjin

 

[pacoako]

Re : < ou > de plusieurs variables

woooohooo, c'était si simple! =)

merci beaucoup kjin!

 

[ROGER2327]

Re : < ou > de plusieurs variables

Re-bonsoir

S'agissant cette fois de Variant, les valeurs ne sont pas nécessairement numériques. Le code

Sub Exemple()
Dim Variable(0 To 4) As Variant
Dim i As Long, maxval, minval
Variable(0) = "E"
Variable(1) = "A"
Variable(2) = "F"
Variable(3) = "B"
Variable(4) = "C"
    minval = Variable(0)
    maxval = Variable(0)
    For i = LBound(Variable) + 1 To UBound(Variable)
        If Variable(i) < minval Then minval = Variable(i)
        If Variable(i) > maxval Then maxval = Variable(i)
    Next i
    MsgBox "La plus petite valeur est: " & minval
    MsgBox "La plus grande valeur est: " & maxval
End Sub

renverra A comme plus petite valeur et F comme plus grande valeur.​

Re-bonne nuit !
ROGER2327