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

XL 2010 Combiner deux colonnes différentes puis supprimer doublons.

lelebl

XLDnaute Nouveau
Bonjour,
J'aimerai pour pouvoir gagner du temps réaliser une macro qui me permettrait de copier coller une colonne à la suite de l'autre puis supprimer les doublons.
Pour supprimer les doublons, ok je me suis appuyé sur l'enregistreur de macro puis j'ai récupéré les lignes qu'il me fallait.
Pour ce qui est du copié collé, j'ai un peu plus de mal, j'utilise donc pour copier ma colonne A de la feuille 1 à la feuille 3 :
"With Worksheets("Feuille1")
.Columns("A").Copy
End With


'Coller en feuille 3 en colonne A et supprimer les doublons

With Sheets("feuil3")
.Columns("A").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
.Range("$A$3:$A$10000").RemoveDuplicates Columns:=1, Header:=xlNo.

Maintenant, la ou je bloque, copier la colonne B de la feuille 2 en A de la feuille 3, à partir de la première ligne vide.
'Je déclare donc des variables
PremièreLigneVide = .Cells(.Rows.Count, "A").End(xlUp).Row-1
End With

Je décide de copier la colonne B feuille 2 sans l'en tête, j'utilise donc .Range, de la première donnée à copier jusqu'à la première ligne vide.
With Sheets ("Feuil2"),
DernièreLigneVideFeuil2=.Cells(.Rows.Count, "B").End(xlUp).
.Range("B3:B" & DernièreLigneVideFeuil2).Copy
End With

With Sheets("Feuil3").
Et la je ne sais donc pas quoi faire, enfin je ne sais pas comment tourner la formule,

merci d'avance de vos réponses,

El Blanco
"C'est en travaillant que l'on travail"
 

Discussions similaires

Réponses
8
Affichages
402
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…