Associations

Bonjour,

Pourriez-vous m'aider à afficher en Feuil2 col A,B et C, TOUTES les associations trouvées en Feuil1 verticales (bas vers le haut et pour 3 nombres glissants sur 50 lignes) .

15 nombres(3 lignes) associés en combinaisons doit mener beaucoup d'associations.

Je joins un exemple.

Bonnes fêtes.

rh

Bonjour,

solution via une macro

Dim tr(1 To 1, 1 To 125), k
Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 3 To dl
        t = Cells(i - 2, 1).Resize(3, 5)
        k = 0
        combine t
        Cells(i - 2, 7).Resize(1, k) = tr
    Next i
End Sub
Sub combine(t, Optional n = 1, Optional s = "")
    os = s
    For i = 1 To 5
        s = s & t(n, i) & " "
        If n = 3 Then
            k = k + 1
            tr(1, k) = Left(s, Len(s) - 1)
        Else
            combine t, n + 1, s
        End If
        s = os
    Next i
End Sub

Bonjour H2SO4,

Merci beaucoup pour ta Macro.

Est-il possible de mettre les 3 nombres dans 3 cellules (plus facile à trier que dans une colonne) => 375 colonnes au lieu de 125

et reporter toutes ces 3 colonnes en Feuil2 en col ABC à la queue leu leu!!!

Ensuite, je ferai mon sous-total des 3 colonnes A B C.

Je te remercie.

rh

Bonsoir,

code adapté

Dim tr(), k
Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        ReDim tr(1 To 125 * dl, 1 To 3)
        k = 0
        For i = 3 To dl
            t = .Cells(i - 2, 1).Resize(3, 5)
            combine t
        Next i
    End With
    Sheets("feuil2").Range("A1").Resize(k, 3) = tr
End Sub
Sub combine(t, Optional n = 1, Optional s = "")
    os = s
    For i = 1 To 5
        s = s & t(n, i) & " "
        If n = 3 Then
            k = k + 1
            tmp = Split(s, " ")
            For j = 1 To 3
                tr(k, j) = tmp(j - 1)
            Next j
        Else
            combine t, n + 1, s
        End If
        s = os
    Next i
End Sub

Bonjour H2SO4, merci beaucoup, c'est parfait.

A bientôt et bonnes fêtes.

rh