comment supprimer les récurrences d'une même colonne

[lulu]

Bonjour,
Dans mon exemple ci joint, je cherche à mettre dans la colonne J toutes les entreprises ayant été trouvées dans la colonne H à l'aide d'une macro. Seulement, je souhaiterais les afficher dans la colonne J à la suite et non avec des trous entre 2 entreprises. Avez-vous une idée ?

 

[BOISGONTIER]

Re : comment supprimer les récurrences d'une même colonne

Bonjour,

Objet dictionary

Sub ListeSansDoublons()
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("h2", [h65000].End(xlUp))
    mondico(c.Value) = ""
  Next c
  [j2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
End Sub

jb

 

[lulu]

Re : comment supprimer les récurrences d'une même colonne

En effet, celà fonctionne très bien, merci beaucoup