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.

1 réponse

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

Discussions similaires

tirage aléatoire sans doublon
missfraise02 -
sc -

14 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses