Scripting.dictionary : ou comment créer des listes sans doublons en VBA

L'objet scripting.dictionary : un outil simple à programmer et qui permet de constituer simplement des collections sans doublons.

Pour pouvoir télécharger les classeurs exemples d'Excelabo, vous devez être enregistré sur le site.
L'enregistrement est gratuit et le mail valide que vous devez fournir pour cela ne sera ni diffusé, ni utilisé pour autre chose et encore moins communiqué à des tiers. Cette mesure est indispensable pour éviter le spam et l'utilisation abusive de la bande passante d'Excelabo.

Auteur :

Mots clefs associés à cette page : ,

Scripting.dictionary

Par Lermite, le dim 15/04/2012 - 13:13.

Bonjour,
La procédure devrait en principe tirer 3000 nombres aléatoires mais elle ne tient pas compte des nombres tirer plusieurs fois, je pense que ce devrait plutôt être

Sub Dictionnaire()
Dim i As Integer
t = Timer
Set MonDico = CreateObject("Scripting.Dictionary")
Do While i < 3000
aléa = Int(Rnd * 10000)
If Not MonDico.Exists(aléa) Then MonDico.Add aléa, aléa: i = i + 1
Loop
temp = MonDico.items
MsgBox Timer - t
Call tri(temp, LBound(temp), UBound(temp))
Application.ScreenUpdating = False
For i = LBound(temp) To UBound(temp): Cells(20 + i, 2) = temp(i): Next
End Sub
Cordialement.