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

Tu as vu le lien dans mon précédent message?

PS: Ton PC est mort cet matin
Et tu as déjà tout réinstallé sur le nouveau?
Bravo!

Tu es en W10 1909? (ou 1903 ?)

 

[mapomme]

PS: Ton PC est mort cet matin
Et tu as déjà tout réinstallé sur le nouveau?
Bravo!

La tâche a été confiée au technicien du site qui en a toujours trois à quatre sous le coude en préparation car nous passons les derniers retardataires de Win7 en Win10. Il a tous les outils pour transférer les données de l'ancien vers le nouveau et en plus on a une sauvegarde automatique et continue dans notre cloud (du moins pour ma pomme - j'avais accepté d'être testeur). Son efficacité m'a malgré tout surpris.

 

[Staple1600]

Re

Et qu'est-ce t'avais pu mettre comme pépins dans ton PC pour qu'il s'auto-termine ?
Du streaming sur C8

PS; Tu as lu la conclusion de l'article? (cf lien: AMD vs Intel)

 

[mapomme]

PS; Tu as lu la conclusion de l'article? (cf lien: AMD vs Intel)

Oui j'ai lu l'article jusqu'au bout. Il va bien falloir que je me décide...

 

[Staple1600]

Re

Avant d'aller au dodo
J'ai tué des processus
Seul Excel est ouvert (en mode sans échec)
(plus les trucs à Windows en tâche de fond)
Et donc
Durée = 4,11 sec.
500 000 éléments au départ -> 318 839 sans doublon.

Bonne nuit à tous

 

[dysorthographie]

Bonsoir le fil,

dysorthographie
C'est à moi que tu causes?

j'ai publié trop vite un code bancale!

l’idée était de vérifier l'impact du ON ERROR en utilisant le test proposé poste #76

If Not CBool(InStr(1, MalisteExiste, "©" & valeur & "©")) Then
        Maliste.Add valeur, valeur
        MalisteExiste = MalisteExiste & "©" & valeur & "©"
    End If

 

[Staple1600]

Bonsoir le fil

=>mapomme
W7Pro/XL2010/8Go: 1,17 secondes
(PC boulot)

=>dysorthographie
Quand j'ai essayé, Excel s'est auto-terminé
(Mais j'ai du mal tenté la chose)

 

[mapomme]

Bonsoir le fil,

=>mapomme
W7Pro/XL2010/8Go: 1,17 secondes
(PC boulot)

Et bien, c'est pas mal

 

[Staple1600]

Re

mapomme
Sauf que je passe pas ma vie au boulot
Et le PC du boulot reste au boulot