Valeur Min dans un tableau array

Salut,
Option Explicit
Sub test()
Dim x As Variant
x = Array(3, 2, 2, 7, 8, 9, 6, 7)
MsgBox minArray(x)
End Sub
Function minArray(t)
Dim i As Integer
Dim minT As Integer
minT = t(0)
For i = 1 To UBound(t)
If minT > t(i) Then minT = t(i)
Next i
minArray = minT
End Function
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Alfred" <Alfred@savoie.fr> a écrit dans le message de news:
ut0A8lQPEHA.3708@TK2MSFTNGP10.phx.gbl...

Bonjour,
Je recherche une macro qui me renvoie une valeur minimale dans un tableau
ARRAY d'environ 10 valeurs.

Pouvez-vous m'aider ?
Merci pour vos réponses
Al

Je recherche une macro qui me renvoie une valeur minimale dans un tableau
ARRAY d'environ 10 valeurs.

x = Array(3, 2, 2, 7, 8, 9, 6, 1, 9, 10)
MsgBox Application.Min(x)

AV