Sub ex4()


Dim n As Integer
Dim i As Integer
Dim rang As Integer
Dim T() As Integer

n = InputBox("Nombre de notes?")
ReDim T(n)

T(1) = InputBox("1ere note ?")
rang = 1
For i = 2 To n
T(i) = InputBox("Autres notes ?")
If T(i) < T(rang) Then
rang = i
End If

Next i
MsgBox ("min=" & T(rang) & "rang=" & rang)

End Sub