enlever les doublons

Bonsoir Xlnaute, le forum,

Met tes noms en colonne A et essai ce code qui est de Ti:

Sub supDoublons()

Dim Cell As Range
Dim Ligne As Integer, I As Integer
Dim M As Byte, U As Byte, N As Byte
Dim Tableau(), Tableau2()
Dim Resultat As String

Ligne = Range('A65536').End(xlUp).Row ' derniere ligne non vide colonne A
M = 1
N = 1
ReDim Preserve Tableau(M) 'tableau valeurs uniques colonne A
ReDim Preserve Tableau2(N) ' tableau pour numero de lignes doublons

Application.ScreenUpdating = False
For Each Cell In Range('A2:A' & Ligne)
U = 0
For I = 1 To M
If Cell = Tableau(I - 1) Then '
Tableau2(N - 1) = Cell.Row ' recupere numero de ligne quand un doublon est detecté
N = N + 1
ReDim Preserve Tableau2(N)
U = 1
End If
Next I

If Tableau(M - 1) = '' And U = 0 Then
Tableau(M - 1) = Cell ' remplissage tableau valeurs uniques si pas de doublon détecté
M = M + 1
ReDim Preserve Tableau(M)
End If
Next Cell

For I = N - 1 To 1 Step -1 ' boucle pour supprimer les lignes de doublons
Rows(Tableau2(I - 1)).Delete
Next I
MsgBox 'les doublons vont être supprimés', vbInformation, 'Suppression des doublons'
Application.ScreenUpdating = True
End Sub

@+

Nanard

Bonsoir le Forum, Nanard, Bertgrav,

Regarde en PJ le petit exemple que je t'ai fait bcp plus court que l'exemple de Nanard.

Comme tu ne dis pas quel 'Lambert' est le bon, je parts du principe que c'est n'importe lequel !

Je commence donc par la dernière ligne du tableau que je compare à toutes les lignes du dessus si 2 lignes sont identique alors j'efface celle du dessus, puis une fois toute les lignes 'scannées' je passe à l'avant dernière et ainsi de suite.

Dis moi si ca te convient ?

@+

Creepy [file name=Doublons_meme_ligne.zip size=9575]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Doublons_meme_ligne.zip[/file]

oui oui ça me convient

parfait

merci

chantal

Re : Re:enlever les doublons

Creepy à dit:

Bonsoir le Forum, Nanard, Bertgrav,

Regarde en PJ le petit exemple que je t'ai fait bcp plus court que l'exemple de Nanard.

Comme tu ne dis pas quel 'Lambert' est le bon, je parts du principe que c'est n'importe lequel !

Je commence donc par la dernière ligne du tableau que je compare à toutes les lignes du dessus si 2 lignes sont identique alors j'efface celle du dessus, puis une fois toute les lignes 'scannées' je passe à l'avant dernière et ainsi de suite.

Cliquez pour agrandir...

Bonjour,

Est il possible aussi de supprimer les 2 lignes "Lambert" et de ne conserver que les singletons ?

Merci