lalecture1 = 3 lalecture2 = 5 lalecture3 = 1 lalecture4 = 2 toto = Array(lalecture1, lalecture2, lalecture3, lalecture4) For i = 0 To UBound(toto) If toto(i) 0 Then toto(i) "je m'en moque et mets donc n'importe quoi" Next MsgBox WorksheetFunction.Min(toto)
lalecture1 = 3 lalecture2 = 5 lalecture3 = 1 lalecture4 = 2 MsgBox WorksheetFunction.Min(Array(lalecture1, lalecture2, lalecture3, lalecture4)) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question