Macro suppression de doublon

Question

Bonjour, 


J'ai un tableau dans lequel je voudrais supprimer les informations en double. Je cherche un code qui me permettrait de reperer  les infos en double de la colonne " E " et de supprimer les données liées à ces cellules se trouvant dans le range " F: W".


Merci d'avance.

Configuration: Windows XP / Internet Explorer 6.0

michel_m · Answer

bonjour

essaies cette macro
Sub supprim()
Dim derlig As Long, cptr As Long
Dim coll As Collection
derlig = Range("E65536").End(xlUp).Row

Set coll = New Collection

For cptr = 1 To derlig
    On Error Resume Next
        coll.Add Cells(cptr, 5).Value, CStr(Cells(cptr, 5).Value)
        If Err.Number > 0 Then: Range(Cells(cptr, 6), Cells(cptr, 23)).ClearContents
   On Error GoTo 0
Next

Set coll = Nothing

End Sub

Macro suppression de doublon

1 réponse

Newsletters