Calculs progressifs de suite de chiffres

Bonjour,

Je rencontre un problème de calculs progressifs d'une suite de chiffres.

J'ai par exemple la suite suivante :

A: 1;6;9

B: 2;4;5

C: 4:6:7

j'aimerais calculer dans un premier temps le produit des chiffres les plus proche de 0 donc ici MIN1 = A:1 B:2 C:4 = 8

Puis le produit des chiffres les plus proche de >=8 : MIN2 = A:1 B:2 C:6 = 12

Puis le produit des chiffres les plus proche de >=12 : MIN3 = etc etc

Mais je n'arrive pas a mettre en place ma boucle de calcul automatique. Est-ce que quelqu'un pourrait m'aiguiller ?

Merci

Bonjour burton41,

Solution par VBA acceptée?

Peu importe, que ce soit en feuilles excel ou Vba, du moment que je puisse récupérer mes valeurs de MIN1,MIN2, etc.. pour mon VBA

:up:

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.