Code vba pour coller la selection active sans doublon

[Pol]

Bonjour à tous,

Quelqu'un pourrait-il m'indiquer le code pour coller la sélection active sans doublons ?

Merci bcp.

Pol.

 

[Robert]

Re : Code vba pour coller la selection active sans doublon

Bonjour Pol, bonjour le forum,

peut-être une réponse ici : Objet dictionary

 

[Pierrot93]

Re : Code vba pour coller la selection active sans doublon

Bonjour,

une autre approche avec le filtre élaboré.

Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Feuil2.Range("A1"), Unique:=True

bonne soirée
@+

 

[Pol]

Re : Code vba pour coller la selection active sans doublon

Merci à vous deux encore une fois pour la qualité de vos réponses.

 

[Pol]

Re : Code vba pour coller la selection active sans doublon

Finalement, je ne m'en sors pas, je n'arrive pas à adapter vos codes alors je reviens vers vous,

Je souhaite faire un coller sans doublon de la plage de cellule (1 seule colonne) préalablement copiée et toujours active. Le collé sera effectué en P1.

Je vous joins un fichier exemple.

Merci encore

 

[Robert]

Re : Code vba pour coller la selection active sans doublon

Bonjour le fil, bonjour le forum,

La super solution de Pierrot adaptée à ton exemple :

Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Feuil1.Range("P1"), Unique:=True

 

[BOISGONTIER]

Re : Code vba pour coller la selection active sans doublon

Bonjour;

L'idée avec filtre élaboré est bonne mais le premier chiffre est pris comme nom de colonne .

Sub sd()
  Set mondico = CreateObject("Scripting.Dictionary").
  For Each c In Selection
     If c <> "" Then mondico(c.Value) = ""
  Next c
  [P1].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
End Sub

JB

 

[Pierrot93]

Re : Code vba pour coller la selection active sans doublon

Bonjour à tous,

L'idée avec filtre élaboré est bonne mais le premier chiffre est pris comme nom de colonne .

oui effectivement, il faut un en-tête de colonne...

Bonne journée
@+

 

[Pol]

Re : Code vba pour coller la selection active sans doublon

Bonjour à vous trois,

merci bcp et bonne journée.

@+