doublons

[digitman]

salut,
je souhaite avoir, si c'est possible, une macro qui permet d'enlever tous les doublons sur une feuille, critère de recherche sur une colonne bien choisie (et de ne laisser aucune copie)
exp :
Colonne A Colonne B
AAAAAA ABABABABA
CCCCCC DDDDDDDDDD
AAAAAA ABABABABA
EEEEEE VVVVVVVVV

Resultat apres la macro
Colonne A Colonne B
CCCCCC DDDDDDDDDD
EEEEEE VVVVVVVVV

et cette macro permettra de recuperer les doublons supprimés dans une nouvelle feuille

merci bien

 

[pat1545.]

Salut,

s'il sagit de doublons de lignes, alors il faut le filtre élaboré, si doublons d'occurences un peu partout sur plusieurs colonnes:

Ce lien n'existe plus


Bye

 

[Celeda]

Bonjour,

Justement sur plusieurs colonnes, Pat, il y a l'excellent Lien supprimé

car le 12 mai 2005 à 00:23 Didier n'avait rien d'autre à faire qu'à nous offrir cette appli :kiss: :kiss:

et toujours sur le même forum XLD, dans la centrale, il y a :
Doublons Macros


et aussi ceux de Thomas :
Lien supprimé


y a de quoi faire sur XLD!!! 🙂 🙂


Celeda 😉

si je parle pas des copains .....qui le fera ???? 🙂 🙂 🙂

 

[digitman]

merci bien pour vos réponse mais les macros qui sont données laissent toujours une seule copie des doublons trouvés
exp : s'il trouve 5 copies du mot 'france', une seule copie sera laissée dans le fichier final
mais moi je souhaite les supprimer

merci

 

[Hervé]

Bonjour digitman, pat, bises celeda

une proposition à travers le code ci dessous, comme tu n'avais pas précisé quelle colonne devait etre scanné, j'ai choisi la A.

Sub Bouton1_QuandClic()
Dim plage As Range, c As Range
Dim tablo()
Dim i As Integer, j As Integer

Set plage = Range('a1:a' & Range('a65536').End(xlUp).Row)

For Each c In plage
        If Application.CountIf(plage, c) > 1 Then
                i = i + 1
                ReDim Preserve tablo(1 To i)
                tablo(i) = c
        End If
Next c

For i = plage.Rows.Count To 1 Step -1
        For j = 1 To UBound(tablo)
                If Cells(i, 1) = tablo(j) Then
                        Rows(i).Delete
                End If
        Next j
Next i
               
End Sub

salut

 

[Celeda]

Bonjour,

ben qu'est-ce que je disais!!!

encore un fil à référencer!!

et hop dans la bande des copains...euh non dans la pelote des fils!!! 🙂 🙂

gros poutoune VV :kiss: :kiss:


Celeda 😉