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

lulu · 18 Avril 2012

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 · 18 Avril 2012

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

Bonjour,

Objet dictionary

Code:

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 · 18 Avril 2012

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

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

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

lulu

XLDnaute Nouveau

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

lulu

XLDnaute Nouveau

Discussions similaires