Combinaison de valeurs

Bonjour

J'ai une liste du type suivant

DATA1 VALEUR1

DATA1 VALEUR2

DATA1 VALEUR3

DATA2 VALEUR4

DATA2 VALEUR5

Pour laquelle j'ai besoin de déterminer toutes les relations entre les "VALEUR" ayant une même "DATA"

Le résultat pour la liste ci-dessus serait donc

VALEUR1 DATA1 VALEUR2

VALEUR1 DATA1 VALEUR3

VALEUR2 DATA1 VALEUR3

VALEUR4 DATA2 VALEUR5

Bien entendu le nombre de DATA et de VALEUR est variable.

J'ai bien vu la fonction COMBIN qui donne le nombre de combinaisons mais pas leur contenu.

Quelqu'un a-t-il une idée ou une macro qui fasse ça ?

Bonjour,

une proposition via macro

Sub aargh()
    Dim dl&, i&, j&
    dl = Cells(Rows.Count, 1).End(xlUp).Row 'dernière ligne
    Range("A1").Resize(dl, 2).Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlNo 'tri sur colonne 1

    For i = 1 To dl - 1
        For j = i + 1 To dl
            If Cells(i, 1) = Cells(j, 1) Then
                k = k + 1
                Cells(k, 5) = Cells(i, 2) & " " & Cells(i, 1) & " " & Cells(j, 2) 'affiche la combinaison
            Else
                Exit For
            End If
        Next j
    Next i

End Sub

Merci à H2SO4 pour ce code qui me semble fonctionner parfaitement.

Je suis une fois de plus ébahi par la puissance de ces forums et la réactivité de leurs membres.

Bonne journée à tous.