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

Statistiques des forums

Discussions
311 733
Messages
2 082 010
Membres
101 866
dernier inscrit
XFPRO