Créer un tableau à partir d'un autre en VBA
Bonjour,
Je cherche depuis pas mal de temps et je n'arrive pas du tout à réaliser ce que je veux.
Par formule j'y suis parvenu mais le soucis c'est que dans mon fichier original j'ai pas loin de 50000 lignes, ça rame dur.
J'ai lu qu'il y avait la possibilité d'utiliser un dictionnaire pour gagner du temps mais là je coince.
Le premier tableau est celui généré par les opérateurs de commande.
A chaque saisie d'un produit une ligne est créée, de ce fait j'ai des doublons de produits dans ma liste.
Si une âme charitable pouvait se pencher sur mon problème
Je viens de mettre en place ma liste de produit unique via cette macro :
La clé est bien le produit et du coup je n'ai pas de doublon.
Mais pour les items... pas d'idée de commenta faire
Sub SupDoublons()
'Macro pour la suppression de doublons
Dim NbLg As Long
Set DicoProduits = CreateObject("Scripting.Dictionary")
a = Range("A4", Range("A65536").End(xlUp)).Value
For Each b In a
DicoProduits(b) = ""
Next b
With Sheets("Résultats")
NbLg = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A4").Resize(DicoProduits.Count, 1) = Application.Transpose(DicoProduits.keys)
.Range("A4:A" & NbLg).Sort Key1:=.Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Set DicoProduits = Nothing
End SubMerci Banzai, mais avec ta méthode, pour 30000 produits, ça rame, ça fait 20 minutes que sa tourne et toujours pas fini.
C'est pour ça que j'étais partit sur un système de dictionnaire, mais je n'arrive pas à comprendre le fonctionnement
Bonjour
Pour refaire le tableau avec l'objet dictionnaire je ne sais pas
Une autre version avec des tableaux internes
Vu le peu de données je ne vois pas de différence
Donc à tester avec toutes tes données
Non, le problème reste identique, excel plante
Je vais lire tout se que je peux sur les dictionnaires, je verrai bien si je trouve quelque chose.