Macro suppression de doublon

zo2lapesca Messages postés 36 Statut Membre -  
zo2lapesca Messages postés 36 Statut Membre -
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.

A voir également:

1 réponse

michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
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
1
zo2lapesca Messages postés 36 Statut Membre
 
Merci beaucoup !!! ca marche tres bien :-)))
0