Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

lulu

XLDnaute Nouveau
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 ?
 

Pièces jointes

  • Exemple.xls
    23 KB · Affichages: 51
  • Exemple.xls
    23 KB · Affichages: 69
  • Exemple.xls
    23 KB · Affichages: 67

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
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
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…