Bonjour,

J'imagine que mon titre n'est pas trop parlant mais voici ce que je cherche à faire :

J'ai une seule liste de villes :
- Rouen
- Paris
- Rennes
- Lyon

Mon but est de générer une liste de combinaisons possibles sans doublon; la particularité est que je ne dois pas voir "Rouen - Rouen" ou même "Paris - Paris" et aussi "Rouen - Paris" et "Paris - Rouen" doivent être considérées comme des doublons par exemple et c'est justement la partie la plus compliquée car avec Kutools je peux déjà avoir cette liste mais qui comporte des doublons si on inverse les sens.
Mon but est d'avoir une liste de combinaison unique.

J'ai trouvé un code VBA sur ce forum qui repond plutot bien à mon besoin sauf qu'il n'ecarte pas les combinaison telles que "Rouen - Rouen".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim I As Long
    Dim J As Long
 
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    For Each Cel In Plage
 
        For I = Cel.Row To Plage.Count
 
            J = J + 1: Cells(J, 2).Value = Cel.Value: Cells(J, 3).Value = Cells(I, 1).Value
 
        Next I
 
    Next Cel
 
End Sub
Merci d'avance pour votre aide.