Discussion :

[Snowind]

Bonjour à tous,

Je travaille sur un fichier excel dont j'aimerais supprimer les doublons inverses.

Par exemple, sur la colonne A, j'ai le scénario suivant :

A-B
A-C
B-A
B-E
E-B
F-G
G-F

En considérant que A-B <=> B-A et F-G <=> G-F, j'aimerais supprimer ces doublons, et ne conserver que

A-B
A-C
B-E
F-G

Si quelqu'un a une idée de comment faire...

Merci

[Menhir]

Je pense que ça ne pourrait se faire qu'avec une macro en VBA.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub RevDoublons()
   Dim Lig As Long
   Dim Rec As Long
   For Lig = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
       For Rec = Lig To 1 Step -1
           If Left(Cells(Lig, 1), 1) = Right(Cells(Rec, 1), 1) And Left(Cells(Rec, 1), 1) = Right(Cells(Lig, 1), 1) Then Cells(Lig, 1).Delete (xlShiftUp)
       Next Rec
   Next Lig
End Sub

[Snowind]

Bonjour Menhir,

Merci pour la réponse. Je vais me faire un petit tuto de VBA, afin de pouvoir tester le code, et vous revenir.

[Menhir]

Je vais me faire un petit tuto de VBA

http://bidou.developpez.com/article/VBA/