Fonction minimum en VBA

Bonjour,

je cherche comment peut-on trouver le minimum dans un tableau le plus simplement possible

par exemple avec le code suivant:

Sub test()

tableau(10) As Variant

tableau(0) = 2
tableau(2) = 3
tableau(5) = 4

For j = 0 To UBound(tableau)

Min tableau(j) ' c'est là que je ne sais pas la syntaxe pour lui demander le min

End Sub

merci

Bonjour,

A adapter à ta situation.

Cdlt

Option Explicit
Sub test()
Dim tableau(10) As Variant
    tableau(0) = 2
    tableau(1) = 0
    tableau(2) = 3
    tableau(5) = 4
    MsgBox Application.Min(tableau)
End Sub

Merci Jean

mais en faite je suis bloqué car mon tableau est à 2 dimensions et j'aimerais tirer le minimum de chaque ligne

par exemple

Sub test()

Dim tableau(2, 2) As Variant

    tableau(0, 1) = 1
    tableau(0, 2) = 2
    tableau(1, 1) = 1
    tableau(1, 2) = 3
    tableau(2, 1) = 1
    tableau(2, 2) = 4

For i = 0 To UBound(tableau,1)
     For j = 1 To UBound(tableau,2)

        Min tableau(i, j) ' c'est là que je ne sais pas la syntaxe pour lui demander le min
        MsgBox (tableau(i, j))

    Next j
Next i

End Sub

Je voudrais qu'il m'afficher le min sur la première ligne de mon tableau (qui est égale à 1 ) puis sur ma 2eme ligne (qui est égale à 1 également ) et enfin sur ma dernière ligne (qui est égale à 1 aussi) mais ma syntaxe n'est pas bonne...

merci

c'est bon merci je viens de trouver

Sub test()
Dim tableau(2, 2) As Variant, i%, j%, m As Double
  tableau(0, 1) = 1
  tableau(0, 2) = 2
  tableau(1, 1) = 1
  tableau(1, 2) = 3
  tableau(2, 1) = 1
  tableau(2, 2) = 4
  For i = 0 To UBound(tableau)
    m = 1.79769313486231E+308
    For j = 1 To UBound(tableau, 2)
      If tableau(i, j) < m Then m = tableau(i, j)
    Next
    MsgBox "Minimum(ligne " & i & ") = " & m
  Next
End Sub