XL 2013 CreateObject("scripting.dictionary") et/ou variable tableau ?

[BenHarber]

Bonjour le Forum,
J'ai trouvé la fonction VBA suivante sur développez.net (merci Mchel M) qui me permet de compter sans doublon les enregistrements d'une plage de cellules. Elle fonctionne bien (même si je ne vois pas trop à quoi CreateObject("scripting.dictionary") correspond...)

A présent, je souhaiterais utiliser les différentes valeurs trouvées dans cette plage de cellules. Je pensais pour cela les enregistrer dans une variable tableau [du type : monTab(0 à n)] : ma question est de savoir si je peux pour cela utiliser "dico" (?) ou si je dois obligatoirement créer une nouvelle variable tableau ?
Merci d'avance pour vos idées toujours constructives !
BH
Function compter_uniques(plage As Range) As Long

Set dico = CreateObject("scripting.dictionary")
For Each cellule In plage
ref = cellule.Value
If Not dico.exists(ref) Then
dico.Add ref, ref
End If
Next
compter_uniques = dico.Count
End Function

 

[Staple1600]

Re, Bonsoir mapomme

Bonsoir à tous
sans collection ( j'aime pas les défilés)

[pj]Sauf quand il y a des bout d'Implicite dedans [/pj]

Sinon t'aurais pas sous le coude, un petit bout de code (pour générer les données de test)
J'ai trop de *.xls? en provenance d'XLD
Cela me permettrait de tester ton code

PS: Tu aimes les MACistes, mais Excel (ou plutôt la maison mère) n'aime pas les pommes
Ce qui donne un VBA plein de pépins sous MAC

EDITION: Bingo! Init est le petit bout de code
Tu pourrais l'ajouter dans ton message, stp ?

 

[mapomme]

Bonsoir @Staple1600

Sinon t'aurais pas sous le coude, un petit bout de code (pour générer les données de test)

Aurais tu un début de germination de -> poil dans la main ?
J'utilise un code plus que "bidon":

Sub init()
   Range("a2").Resize(200000).Formula = "=RANDBETWEEN(1,11111)"
   Range("a2").Resize(200000).Value = Range("a2").Resize(200000).Value
End Sub

 

[Staple1600]

Re

J'avais édité mon précédent message
(J'ai même utilisé un champ lexical tout à ton honneur )
Merci pour l'init
M'en vais tester ton code

 

[Staple1600]

Re

Le poil n'est pas si long, la preuve

Sub Ignition()
[A2:A200000] = "=RANDBETWEEN(1,11111)": [A2:A200000] = [A2:A200000].Value
End Sub

 

[Staple1600]

Re

J'ai testé (mais avec uniquement le code VBA dans tes messages)
Et il se passe rien au niveau des doublons
Ou j'ai loupé un truc ?

 

[mapomme]

Et il se passe rien au niveau des doublons
Ou j'ai loupé un truc ?

Mes colonnes A et b ont chacune un titre. Si la colonne B n'a pas d'en-tête en B1, alors il ne s'affiche rien.

 

[Dranreb]

@jmfmarques Est-ce que ça marche une fois l'option correcte adoptée ? (voir post #26)

 

[Staple1600]

Re, Bonsoir Dranreb

=>mapomme
3,30s
(W10 64bits/XL 2013 32bits)

 

[Dranreb]

Bonsoir @Staple1600
Oui mais pour le classeur proposé au #17 ?

 

[Staple1600]

Bonsoir Dranreb

100000 éléments échangés
"Dictionary
(l. tardives)" "Dictionary
(anticipées)" "Collection
VBA"
Création : 1345,9478 1171,6763 1721,8215
Consutation : 1376,5927 1227,3281 1132,4033

PS: J'ai tout supprimé avant de lancer le test
(à partir de la ligne 7)

NB: Pardon, mapomme mais comme le code n'était point dans le message, j'ai téléchargé le fichier de Dranreb
Tu m'en veux point, hein ?

 

[Dranreb]

La surprise c'est que pour 20 × plus d'élément la Collection redevient légèrement plus rapide et, surprise encore bien plus grosse: les liaisons anticipées deviennent très légèrement pénalisantes pour le Dictionary, alors qu'elles sont clairement avantageuses pour 1000 éléments ! (de très peu quand même)
Je vais tâcher de faire un graphique …

 

[Staple1600]

Re

Dranreb
J'ai un doute sur le fonctionnement de ton fichier
On l'ouvre et on appuie sur le bouton
Ou on doit effacer les résultats précédents avant de cliquer sur le bouton
(Donc effacer les lignes 8 à 67)

 

[mapomme]

=>mapomme
3,30s
(W10 64bits/XL 2013 32bits)

Bizarre, avec XL2007 et (core i3) je fais 1,5 seconde.

 

[Dranreb]

Non, pas besoin d'effacer quoi que ce soit. Il ne fait qu'un essai, simplement pour garder trace des précédents il copie tout d'abord 60 lignes vers 6 lignes plus bas.
Mais je vais revoir tout ça pour qu'il fasse une ligne par essai pour pouvoir faire un graphique …

 

[Staple1600]

Re

mapomme
Ici AMD E-300 APU - 1,2 Ghz - 4Go de RAM
(Dual-core il me semble)