VBA coller deux colonne en une sans doublon
Fermé
OLCO
Messages postés
2
Date d'inscription
mardi 3 février 2015
Statut
Membre
Dernière intervention
6 février 2015
-
3 févr. 2015 à 19:16
OLCO Messages postés 2 Date d'inscription mardi 3 février 2015 Statut Membre Dernière intervention 6 février 2015 - 6 févr. 2015 à 16:41
OLCO Messages postés 2 Date d'inscription mardi 3 février 2015 Statut Membre Dernière intervention 6 février 2015 - 6 févr. 2015 à 16:41
A voir également:
- VBA coller deux colonne en une sans doublon
- Déplacer une colonne excel - Guide
- Deux comptes whatsapp - Guide
- Colonne word - Guide
- Supprimer doublon excel - Guide
- Formule somme excel colonne - Guide
2 réponses
ccm81
Messages postés
10862
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
30 mai 2024
2 409
3 févr. 2015 à 21:08
3 févr. 2015 à 21:08
Bonjour
Un début de réponse
https://www.cjoint.com/?3BdvrQ0XOJq
Cdlmnt
Un début de réponse
https://www.cjoint.com/?3BdvrQ0XOJq
Cdlmnt
OLCO
Messages postés
2
Date d'inscription
mardi 3 février 2015
Statut
Membre
Dernière intervention
6 février 2015
Modifié par OLCO le 6/02/2015 à 16:41
Modifié par OLCO le 6/02/2015 à 16:41
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
