Supprimer les doublons dans une colonne

Hervé

XLDnaute Barbatruc

• 6 Avril 2006

• #2

bonjour brice

si tu ne veux supprimer que les doublons, tu peux essayer cette macro :

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim data As New Collection
Dim i As Byte

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

On Error Resume Next
For i = 1 To UBound(tablo)
        data.Add tablo(i, 1), CStr(tablo(i, 1))
Next i
On Error GoTo 0

Columns('A').ClearContents

For i = 1 To data.Count
        Cells(i, 1) = data(i)
Next i
End Sub

Cliquez pour agrandir...

exemple en piece jointe

salut [file name=Classeur1_20060406160443.zip size=7514]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060406160443.zip[/file]

 

Pièces jointes

• Classeur1_20060406160443.zip

  7.3 KB · Affichages: 208

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 6 Avril 2006

• #3

Salut Brice,

Je te propose une petite solution par macro que je viens de retrouver dans mes archives (tes données doivent etre en colonne A) :

Code:

Sub sup_doublons()
Dim i As Integer, k As Integer, var As Integer

For i = 1 To Range('A65536').End(xlUp).Row
    var = 0
    nom1 = Range('A' & i).Value
    For k = i + 1 To Range('A65536').End(xlUp).Row
        nom2 = Range('A' & k).Value
        If nom2 = nom1 Then
            var = 1
            Rows(k).Delete
            k = k - 1
        End If
    Next k
    If var = 1 Then Rows(k).Delete
Next i
End Sub

@+

Edition : Re Hervé , le temps de farfouiller dans le pc et tu as été plus rapide, mais la solution est différente donc ca va, comme ca Brice n'aura qu'a choisir

Message édité par: porcinet82, à: 06/04/2006 16:10

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 6 Avril 2006

• #4

Salut,

soit par filtre élaboré soit avec un tit code:

Ce lien n'existe plus

Bye

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 6 Avril 2006

• #5

Salut à tous ,

désolé Porcinet , Hervé, pas rafraichit mon écran

Bye

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 6 Avril 2006

• #6

re brice, salut porcinet, pat

porcinet, une autre syntaxe si tu veux supprimer les lignes :

Sub Bouton1_QuandClic()
Dim i As Integer

Application.ScreenUpdating = False

For i = Range('a65536').End(xlUp).Row To 1 Step -1
        If Application.CountIf(Range(Cells(i, 1), 'A1'), Cells(i, 1)) > 1 Then
                Rows(i).Delete
        End If
Next i
End Sub

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 6 Avril 2006

• #7

re,

Alors la chapeau bas une fois plus mon cher Hervé, au niveau de l'optimisation du code y a pas photo et je m'appercois que j'ai encore beaucoup de chemin à parcourir...

Je n'ai pas accès a l'aide d'Excel a la Fac donc je ne peux pas regarder comment fonctionne Application.CountIf mais la semaine prochaine c'est vacances donc je me ferai un plaisir de regarder tout ca et de mettre au tableau.

Encore merci à toi,

@+

 

Vote positif 0 Vote négatif

A

amandine.42

Guest

• 7 Avril 2006

• #8

salut à tous.
Je joins une macro qui, je l'espère, va résoudre ton problème Brice. [file name=SuppDoublons.zip size=447]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SuppDoublons.zip[/file]

 

Pièces jointes

• SuppDoublons.zip

  447 bytes · Affichages: 183

Vote positif 0 Vote négatif

N

Nash84

Guest

• 7 Avril 2006

• #9

Merci pour vos réponses ... j'essaye !

 

Vote positif 0 Vote négatif