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

Copier coller une liste sans doublon sur la 3ème colonne

mouftie

XLDnaute Junior
Bonjour,
Je cherche à récupérer une liste (feuille BdD) extraite d'une autre liste (feuille Infos).
J'ai trouvé sur le site, un code que j'ai voulu adapter, mais je n'y arrive pas.
Code:
 Dim DeBlg As Long, DerLg As Long
DeBlg = Sheets("BdD").Range("D65000").End(xlUp).Row + 1
DerLg = Sheets("infos").Range("D65000").End(xlUp).Row + DeBlg - 1
    Sheets("BdD").Activate
    Sheets("Infos").Range("TabAg[[Expérim]:[Sct]]").AdvancedFilter Action:=xlFilterCopy _
        , CopyToRange:=Range("B" & DeBlg), Unique:=True
le pb, c'est que je voudrai c'est désigner la colonne qui contient les doublons et en plus, j'ai des exigences :
  1. que le filtre se fasse sur la 4ème colonne (Nom) et non sur la 1ère
  • que la liste vienne s'intégrer au tableau7 en gardant si possible la mise en forme (mais ça je pourrai le reprendre avec une mise en forme conditionnelle).
  • Enfin que la colonne Sct soit déplacer en colonne O du tableau7 de destination
Ce lien n'existe plus
Merci pour votre aide
 
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…