VBA coller deux colonne en une sans doublon

OLCO Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
OLCO Messages postés 2 Date d'inscription Statut Membre Dernière intervention - 6 févr. 2015 à 16:41

Bonjour, Je commence en VBA et j'ai présentement un problème. Je désire coller deux colonnes A:A et C:C (provenant de deux onglets différents du même fichier) dans un autre onglet de ce fichier, mais dans la même colonne, soit une à la suite de l'autre et ensuite effacer les doublons. Je n'y arrive pas.

Merci pour votre aide.

A voir également:

VBA coller deux colonne en une sans doublon
Déplacer une colonne excel - Guide
Comment faire deux colonnes sur word - Guide
Trier une colonne excel - Guide
Formule somme excel colonne - Guide
Supprimer doublon colonne excel - Guide

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Bonjour

Un début de réponse
https://www.cjoint.com/?3BdvrQ0XOJq

Cdlmnt

Réponse 2 / 2

OLCO Messages postés 2 Date d'inscription Statut Membre Dernière intervention

Réglé. Merci

Sub liste_entité()
Dim classeur As Workbook

Set classeur = ActiveWorkbook

classeur.Sheets("Feuil1").Activate
Columns("A:A").Select
Selection.Copy
classeur.Sheets("Liste").Activate
Range("A1").Select
ActiveSheet.Paste

classeur.Sheets("feuil2").Activate
Columns("B:B").Select
Selection.Copy
classeur.Sheets("Liste").Activate
Range("B1").Select
ActiveSheet.Paste

Range("A2:A" & [A100000].End(xlUp).Row).Select
Selection.Copy
Range("B100000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Columns("A:A").Select
Selection.Delete Shift:=xlToLeft

Columns("A:A").Select
ActiveSheet.Range("$A$1:$A$10000").RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

Discussions similaires

dessin avec symbole clavier

Supprimer conversation messenger pour tout le monde

Votre réponse

Discussions similaires