Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Filtre sans doublon avec VBA, Exécution très lente

  • Initiateur de la discussion Initiateur de la discussion Vorens
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Vorens

XLDnaute Occasionnel
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

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
 

Pièces jointes

Bonjour,

Cela devrait être quelque chose comme ça:
Code:
     Sheets("Importation").Columns("C:C").AdvancedFilter _
            Action:=xlFilterCopy, _
            CopyToRange:=Sheets("Calcule BIS").Range("A1"), _
            Unique:=True

A+
 
Re : Filtre sans doublon avec VBA, Exécution très lente

Re,

Merci à vous deuxs pour vos réponses et solutions. Le filtrage est instantané c'est parfait.

Sur mon fichier de base, le filtre me plantais Excel pendant 5 minutes environ


Merci encore


Cordialement

Vorens
 
Re : Filtre sans doublon avec VBA, Exécution très lente

Re,

Vorens: Et la solution est 😕😕

Et pourquoi, cela met 5 minutes, serait-ce un problème entre 2003 et 2007 où il y a d'autres choses dans tes feuilles (beaucoup de formules, qui fait que cela ralentit 😕).

Ce serait bien que l'on ai ta solution histoire que cela serve dans les 2 sens 😱.
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…