Suppression des doublons +recopie sur autre feuille

bonsoir à toutes et à tous

je souhaiterai vous soumettre une problématique :

sur le fichier joint composé de 2 feuilles (base & recopie), mon souhait serait de supprimer les doublons de la feuille base et ensuite de recopier sur la feuille recopie certaines informations contenues dans les colonnes suivantes :

a partir de Base d2 sur recopie a3

a partir de Base i2 sur recopie d3

a partir de Base h2 sur recopie e3

a partir de Base j2 sur recopie f3

merci de votre aide

bonjour,

Bon, on veut bien t'aider, mais là....

Pas d'onglet "base", ni d'onglet "recopie"

Pas de doublons

Et de plus, rien compris à l'énoncé, du moins au vu de ton fichier.....

Je pense que tu as du te tromper de fichier exemple, ou alors

bon courage

oups ! erreur de fichier !!

mille excuses

remarques : sur l'onglet base, pour supprimer les doublons, il ne faut pas tenir compte du numéro (colonne A)

pour être un peu plus clair, voici le rappel dema problématique ;

1°) sur le fichier joint il y a 2 feuilles : base & recopie

2°) mon souhait serait de supprimer les doublons de la feuille base (ne pas tenir compte de la colonne A qui donne un "coté unique" à chaque ligne)

3°) ensuite de recopier sur la feuille recopie certaines informations contenues dans les colonnes suivantes :

a partir de Base d2 sur recopie a3

a partir de Base i2 sur recopie d3

a partir de Base h2 sur recopie e3

a partir de Base j2 sur recopie f3

merci de votre aide

Bonjour,

Je comprends que par doublons, on ne doit vérifier que les colonnes" D, I, H et J"???

Peut-on modifier quelque peu le tableau dans l'onglet "Recopie"?

Et est-ce qu'une macro te dérange?

Le cas échéant, un essai dans le fichier joint

Dans l'onglet "recopie", j'ai mis en premier les colonnes qui t'intéressent (couleur jaune)

clique sur le bouton vert, dans la cellule A1 de l'onglet "base", et regarde le résultat dans l'onglet "recopie", et dis si cela convient.

Bon courage

Pour info, le code utilisé :

Sub extract()
With Sheets("base")
    .Range("A1:Q" & .Cells(Rows.Count, 1).End(xlUp).Row).Name = "base"
    .Range("base").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Sheets("recopie").Range("A1:D1"), Unique:=True
End With
End Sub

bonsoir cousinhub !

tout d'abord, excuses moi pour ma réponse tardive

un grand merci, c'est tout à fait le résultat recherché !!

je vais me permettre d'etre exigeant : serait il possible de compléter les infos suivantes : port embarquement, contact et marchandises ?

est ce possible ?

merci de ton retour

Bonjour,

C'est sans doute possible, mais les données que tu demandes correspondent à quelles colonnes dans l'onglet "base"?

Ceci afin que les en-têtes soient exactement identiques.

@ te relire