Macro suppression de doublon

Fermé
zo2lapesca Messages postés 32 Date d'inscription lundi 18 janvier 2010 Statut Membre Dernière intervention 12 mai 2011 - 25 mars 2010 à 16:09
zo2lapesca Messages postés 32 Date d'inscription lundi 18 janvier 2010 Statut Membre Dernière intervention 12 mai 2011 - 25 mars 2010 à 18:04
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 311
25 mars 2010 à 17:41
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 32 Date d'inscription lundi 18 janvier 2010 Statut Membre Dernière intervention 12 mai 2011
25 mars 2010 à 18:04
Merci beaucoup !!! ca marche tres bien :-)))
0