enlever les doublons

[bertgrav]

Bonjour,

Je suis à la recherche d’une macro pour effectuer un tri sans doublon, je voudrais que ce ce tri se fasse par rapport à 1 seule colonne et uniquement sur ce seul critére.

Par exemple : dans la feuille jointe je ne voudrais garder que les lignes où n’apparaît qu’une seule fois le nom, en l’occurrence la ligne 4 doit dégager car Lambert est déjà dans la ligne 2.

Merci de m’aider

Chantal
[file name=essai_20050922172024.zip size=1562]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20050922172024.zip[/file]

 

[NANARD]

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

 

[Creepy]

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]

 

[bertgrav]

oui oui ça me convient

parfait

merci

chantal

 

[cbtitalia]

Re : Re:enlever les doublons

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.

Bonjour,

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

Merci