Modification Alea (code)

[JJ1]

Bonjour,

Le code Dictionary est efficace et rapide. Celui ci me donne 10 nombres au hasard de 1 à 70 en G1.

Pourrait-on le modifier pour qu'il me fournisse toujours 10 nombres en G1 au hasard mais parmi 25 nombres choisis situés en AA1:AY1 et uniquement parmi ceux-ci (si possible avec dictionary car très rapide d'exécution)

Voici le code actuel:

....
For i = 1 To 100
Randomize
Set dico = CreateObject("Scripting.dictionary")
While dico.Count < 10
x = Int((70 * Rnd) + 1)
dico(x) = x
Wend
Range("G1").Resize(, 10) = dico.keys

....

Je ne fournis pas de fichier pour le moment mais s'il en faut un dites-le moi.
merci de votre aide.
Bonne soirée

 

[pierrejean]

Re : Modification Alea (code)

Bonjour jj1

A tester:

tablo = Range("AA1:AY1")
Randomize
Set dico = CreateObject("Scripting.dictionary")
While dico.Count < 10
xx = Int((UBound(tablo, 2) * Rnd) + 1)
x = tablo(1, xx)
dico(x) = x
Wend
Range("G2").Resize(, 10) = dico.keys

 

[Pierrot93]

Re : Modification Alea (code)

Bonjour JJ1, Re PierreJean🙂

c'est fait alors je donne...

Set dico = CreateObject("Scripting.dictionary")
While dico.Count < 10
x = Int((25 * Rnd) + 1)
dico(Cells(1, 26 + x).Value) = Cells(1, 26 + x).Value
Wend
Range("G1").Resize(, 10) = dico.keys

bonne soirée
@+

 

[Theze]

Re : Modification Alea (code)

Bonjour,

Avec Items :

Sub Test()

    Dim Dico
    Dim X As Integer
    
    Randomize
    
    Set Dico = CreateObject("Scripting.dictionary")
    
    While Dico.Count < 10
    
        X = Int((25 * Rnd) + 1)
        
        If Dico.exists(X) = False Then
        
            Dico.Add X, Cells(, 26 + X)
            
        End If
    
    Wend
    
    Range("G1").Resize(, 10) = Dico.Items

End Sub

Hervé.

 

[Theze]

Re : Modification Alea (code)

Oups,

Pas rafraîchi 😱((

Hervé.

 

[JJ1]

Re : Modification Alea (code)

Merci beaucoup pour ces 3 codes ( j'ai le choix !-merci)
Dans le résultat en G1 il n'y aura pas de doublon car Dictionary le gère.

D"après vous quel est le plus rapide?
je vais tester de mon côté.(je vous dirai)


Bonne soirée

 

[pierrejean]

Re : Modification Alea (code)

Re

@ mon ami Pierrot
Le randomize est peut-etre à ajouter
@ JJ1
Verifie ,mais à 1ere vue le code de Theze ne protege pas des doublons (s'il y en a dans la zone AA1:AY1)

 

[JJ1]

Re : Modification Alea (code)

Re,
Je viens d'installer un premier code (le dernier d'Hervé), le code me donne un nombre absent de la plage?
(ici le 8 par exemple)
Que faudra-t-il modifier? merci
je joins l'exemple.

 

[JJ1]

Re : Modification Alea (code)

Merci Pierre-Jean, je viens d'installer les 2 autres codes (le tien et celui de Pierrot) rien ne se passe en G1 (aucun affichage de nombres ?)
et celui d'Hervé me donne des nombres hors plage.
J'ai joins un exemple.

Merci

 

[pierrejean]

Re : Modification Alea (code)

Re

Voila l'adaptation sur ton fichier

 

[JJ1]

Re : Modification Alea (code)

Re,
Merci Pierre Jean, l'adaptation est parfaite.

Bonne soirée à tous.

 

[Pierrot93]

Re : Modification Alea (code)

Re,

@ mon ami Pierrot
Le randomize est peut-etre à ajouter

oui, tu as tout à fait raison PierreJean🙂, je me suis attardé juste sur la boucle... bonne soirée à toi