XL 2013 Macro VBA: Utiliser toutes les valeurs d'un filtre les unes après les autres?

Dudu2

XLDnaute Barbatruc

• 29 Juillet 2020

• #2

Bonjour,
Je crois qu'il faut faire comme indiqué ici.
Copier la colonne quelque part et faire un Range.RemoveDuplicates, puis exploiter les valeurs de la colonne de travail.
Ou alors tu travailles en mémoire, tu copies la colonne dans un tableau (Dim Tableau as Variant: Tableau = Colonne.Value), tu tries le tableau si la colonne ne l'est pas déjà et tu ignores / passes les doubles en parcourant le tableau. Si la colonne est déjà triée, ça peut être une solution très rapide, un peu moins si tu dois faire un tri.

 

Vote positif 0 Vote négatif

Q

Quitus

XLDnaute Nouveau

• 29 Juillet 2020

• #3

J'avoue que c'est une bonne idée! Merci dudu2 je vais m'en inspirer.
Toujours preneur pour d'autre solution

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 29 Juillet 2020

• #4

Bonjour.
J'ai deux modules de service qui savent établir ce genre de chose: l'une pour une seule colonnes, c'est la fonction SujetCBx du complément fourni ici, l'autre c'est ma fonction Gigogne, qui peut l'établir pour plusieurs colonnes hiérarchisées.

 

Pièces jointes

• GigIdx.xlsm

  98.5 KB · Affichages: 10

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 29 Juillet 2020

• #5

Hello,
Je viens de m'intéresser aux méthodes de tris pour améliorer mon antique tri par permutations de valeurs très peu performant comparé aux fusées que sont les ShellSort et QuickSort que j'ai placés dans le classeur joint avec une démo de tri de 100.000 valeurs sur la colonne A.

 

Pièces jointes

• Algorithmes de tri et valeurs uniques.xlsm

  35.9 KB · Affichages: 3

Dernière édition: 29 Juillet 2020

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 29 Juillet 2020

• #6

Et j'ai ajouté l'extraction des valeurs uniques dans le fichier du post précédent.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 29 Juillet 2020

• #7

Pour information: mes fournitures utilisent un algorithme d'indexation par fusions utilisant une collection, encore légèrement plus rapide, et qui a l'avantage de se ramener à une simple vérification séquentielle si l'ensemble est déjà classé.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 29 Juillet 2020

• #8

Je me suis principalement intéressé au tri.

Et en utilisant la fonction WorksheetFunction.Transpose qui a un comportement particulier sur les changements de dimensions qui permet de l'utiliser avec bénéfice sur les tableaux issus de Ranges, j'ai constaté par hasard qu'elle est limitée à 41248 éléments de tableau !
J'ai don dû écrire une fonction TransposeExcel qui a le même comportement en terme de changements de dimensions mais qui n'a pas cette limite stupide et non documentée.

 

Vote positif 0 Vote négatif

Q

Quitus

XLDnaute Nouveau

• 29 Juillet 2020

• #9

J'ai trouvé ma solution pour ma part! Merci la zone quand même huun

 

Vote positif 0 Vote négatif