Extraction liste sans doublon

[aborsell]

Rebonjour à tous,

J'utilise ce code

Range("B5:B65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Listes").Range("K5:K65536"), Unique:=True

pour extraire les données d'une colonne sans doublons.

Un petit problème se pose: ca fonctionne bien sauf que dans la liste créée il manque la dernière valeur du bas (de la colonne source).

ex :
colonne source :
adr
adr
adr
bor
bor
cri
cri

liste cible:
adr
bor
manque cri

Un grand merci a ceux qui me viendront en aide.

Adrien

 

[Roland_M]

Re : Extraction liste sans doublon

bonsoir

j'ai essayé et j'ai ceci !?
adr
adr
bor
cri

comprends pas bien !?
peut être que quelqu'un d'autre nous apportera la solution !?

 

[Cousinhub]

Re : Extraction liste sans doublon

Bonsoir,

juste pour essai

remplace :

CopyToRange:=Sheets("Listes").Range("K5:K65536")

par :

CopyToRange:=Sheets("Listes").Range("K5")

 

[Roland_M]

Re : Extraction liste sans doublon

re

bonsoir bhbh
c'est ce que j'ai fait mais c'est idem !?

EDIT:

j'ai copié adr ... en A1.A2...
et fais comme ceci sur la même feuille
Range("A1:A65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True

 

[julberto]

Re : Extraction liste sans doublon

Bonjour aborsell & le forum

Pas de souci, il faut inclure l'entête de colonne de la base de donnée. Et définir la première cellule cible suffira.
Ce qui donne en supposant l'entête de colonne en B4 :

 Range("B4:B65536").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Sheets("Listes").Range("K5"), Unique:=True

Bonne journée.

 

[aborsell]

Re : Extraction liste sans doublon

Bonjour à tous,

Merci pour vos réponses !!!

Cordialement

adrien