VBA coller deux colonne en une sans doublon
OLCO
Messages postés
2
Statut
Membre
-
OLCO Messages postés 2 Statut Membre -
OLCO Messages postés 2 Statut Membre -
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.
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
- Deux ecran pc - Guide
- Supprimer doublon colonne excel - Guide
2 réponses
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
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
