Bonjour à tous,
Comme dit dans le titre, j'ai un bout de code qui effectue une extraction sans doublons des éléements dans une colonne de la feuille 1 colonne B pour les copier dans la feuille 2 colonne A.
Voici le code
Cette horrible chose est tirée de l'enregistreur de macro et j'aurais aimer savoir si il n'y avais pas un moyen plus rapide d'effectuer une extraction sans doublons.
Ci-joint, un fichier avec seulement une colonne a trier si vous avez des solutions totalement différente du code ci-dessus.
D'avance merci pour votre aide
Cordialement
Vorens
Comme dit dans le titre, j'ai un bout de code qui effectue une extraction sans doublons des éléements dans une colonne de la feuille 1 colonne B pour les copier dans la feuille 2 colonne A.
Voici le code
Code:
Sheets("Importation").Activate
Columns("C:C").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range("C1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Calcule BIS").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Importation").Select
ActiveSheet.ShowAllData
Cette horrible chose est tirée de l'enregistreur de macro et j'aurais aimer savoir si il n'y avais pas un moyen plus rapide d'effectuer une extraction sans doublons.
Ci-joint, un fichier avec seulement une colonne a trier si vous avez des solutions totalement différente du code ci-dessus.
D'avance merci pour votre aide
Cordialement
Vorens