Encore une bête question qui vous tombe dessus...

[strophe]

Coucou, à nouveau moi !!!

voilà j'ai une liste avec plusieurs doublons de type

a
a
a
b
b
c
d
d

Je voudrais bien effacer les doublons ( grrrrrrrrrrrr)


une astuce ????

merci

c'est la dernière bête question avant le WE

merci!!!!!

 

[Temjeh]

Re : Encore une bête question qui vous tombe dessus...

Bonjour j'ai trouvé ceci 3 sol pour le même prix

Met en col B la col A sans doublons

Option Explicit
Sub sansdoublons()
 Dim n As Integer
 Dim lign As Integer
 Dim col As Collection
 Set col = New Collection
  For n = 1 To Range("A65536").End(xlUp).Row
   On Error Resume Next
    col.Add Range("A" & n), CStr(Range("A" & n))
   On Error GoTo 0
  Next n
 lign = 1
  For n = 1 To col.Count
   Range("B" & lign) = col(n)
   lign = lign + 1
  Next n
End Sub

Aussi supprime ligne entiere: ...***Faire un trie sur col A avant***

For i = Range("A65536").End(xlUp).Row To 1 Step -1
 If Range("A" & i) = Range("A" & i + 1) Then Rows(i).Delete
Next i

Ou clear le doublon mais tu doit trier aussi avant

For i = Range("A65536").End(xlUp).Row To 1 Step -1
 If Range("A" & i) = Range("A" & i + 1) Then Range("A" & i + 1).Clear
Next i

Temjeh