Bonjour,
Sub Suite()
Dim Tp(), A, B, C, i%, j%, k%, p%, n%, id$
A = Array(1, 6, 9)
B = Array(2, 4, 5)
C = Array(4, 6, 7)
n = (UBound(A) + 1) * (UBound(B) + 1) * (UBound(C) + 1)
ReDim Tp(n, 1): n = 0
For i = 0 To 2
For j = 0 To 2
For k = 0 To 2
p = A(i) * B(j) * C(k)
id = "A" & i & "B" & j & "C" & k
n = n + 1: Tp(n, 0) = id: Tp(n, 1) = p
Next k
Next j
Next i
For i = 1 To n - 1
For j = i + 1 To n
If Tp(j, 1) < Tp(i, 1) Then
For k = 0 To 1
Tp(0, k) = Tp(j, k): Tp(j, k) = Tp(i, k): Tp(i, k) = Tp(0, k)
Next k
End If
Next j
Next i
id = ""
For i = 1 To n
id = id & Chr(10) & "Min" & i & " : " & Tp(i, 0) & " = " & Tp(i, 1)
Next i
id = Replace(id, Chr(10), "", 1, 1)
MsgBox id, , "Résultats"
End Sub
Cordialement.