Extraction de données sans doublons avec critères

[apt]

Bonjour,

Pour extraire des données sans doublons avec critères, j'ai utilisé ce code :

Sheets("Feuil1").Range("C1:C100").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("J2"), CopyToRange:=Range("H1"), Unique:=True

Mais le critère n'est pas respecté, incompréhensible ou ignoré.

Le critère est : Extraire tout les données de la colonne C, avec chacune une croix "x" dans la colonne D.

Merci.

 

[CB60]

Re : Extraction de données sans doublons avec critères

Bonsoir
regarde si cela te convient

 

[apt]

Re : Extraction de données sans doublons avec critères

Bon voila où j'en veux arriver :

C'est d'avoir en Feuil2 le même résultat présenté dans Feuil3.

Exemple en fichier joint :

 

[apt]

Re : Extraction de données sans doublons avec critères

Je n'ai pas vu ta réponse CB60.

Enfin je vais la voir en attendant de ton coté de me proposer des idées à propos de mon nouveau fichier joint.

 

[CB60]

Re : Extraction de données sans doublons avec critères

Bonjour
Je n'ai pas tout à fais le même résultat que ton souhait, mais mes connaissances macro sont limités, alors je fais avec ce que je connais

 

[apt]

Re : Extraction de données sans doublons avec critères

Bonsoir CB60,

Très bon travail CB60.

Bon, j'ai obtenu de JB un résultat presque fait de ce que je demandais. (Je le remercie au passage).

Et j'ai pu ajouté ce qui manquait.

Merci à tous, et surtout CB60 de m'avoir assister tout au long de ce fil.