XL 2016 Générateur de chiffres aléatoires sans doublons

[JDL33]

Bonjour Jetted !

Bonjour à vous tous !

Je recherche depuis longtemps un générateur de chiffres aléatoires sans doublons pour l’affichage de l’EuroMillions fonctionnant sous Excel Pro 2016 mais avec une condition complémentaire.

• Que les cinq chiffres s’affichent dans cinq cellules et dans deux cellules pour les deux étoiles (sur une même ligne, horizontalement ou verticalement) aucune importance.
• Que les cinq chiffres affichés (entre 1 et 50) soient sans doublons.
• Que les deux chiffres affichés (entre 1 et 12) pour les étoiles soient sans doublons.
• Que le défilement des chiffres soit visible dans chaque cellule.
• Ce qui correspond au fonctionnement du logiciel ci-dessous, voir lien.

Générateur de numéros aléatoires de l'EuroMillions (euro-millions.com)

• Voici la condition complémentaire
• Affichage dans une cellule d’un minuteur (00 h 00 mn 00 s) qui doit arrêter l’affichage suivant la durée indiquée.
• Dans une cellule, un bouton de commande pour lancer le générateur de chiffres aléatoires.
• Que la fonction « Randomize » soit effectuée à chaque lancement du générateur de N° aléatoires.

La fréquence d’affichage des chiffres après un timing personnalisé est pour moi très importante.

Merci beaucoup à vous tous pour votre aide

Cordialement

 

[patricktoulon]

re
et pour le coup là l'effet rouleau est plus vrai que nature
qu'est ce que l'on se marre ici purée

Private Sub CommandButton1_Click()
    Dim T#, F, C&, Tlaps#, a&, VaL
    Randomize
    Set F = ActiveSheet
    Tlaps = 0.3
    VaL = Array(xlBottom, xlCenter, xlTop)
    F.Cells(2, 1).Resize(, 7).ClearContents
    For C = 1 To 7
        T = Timer + Tlaps
        Do
            DoEvents
            F.Cells(2, C).Resize(, 7 - (C - 1)) = Round(1 + (Rnd * 49))
            For a = 0 To 3: DoEvents: F.Cells(2, C).Resize(, 7 - (C - 1)).VerticalAlignment = VaL(IIf(a = 3, 0, a)): Next
            F.Cells(2, C) = Round(1 + (Rnd * 49))
            If Timer > T Then
                If C = 1 And Timer + Tlaps > T Then F.Cells(2, C).VerticalAlignment = xlCenter: Exit Do
                If C > 1 Then
                    If WorksheetFunction.CountIf(F.Range(F.Cells(2, 1), F.Cells(2, C)), F.Cells(2, C)) > 1 Then
                        T = Timer + Tlaps
                    Else
                        F.Cells(2, C).VerticalAlignment = xlCenter: Exit Do
                    End If
                End If
            End If
        Loop
    Next
End Sub

 

[sylvanu]

Bonsoir tout le monde.
Quitte à s'amuser, on peut continuer, ça détend.
L'avantage de la pièce jointe est que je peux vous assurer que la combinaison qu'il délivre sortira un jour.

 

[patricktoulon]

re
je préfère ton 2d @sylvanu
a tu essayé mon 2d il est mieux coté effet

 

[sylvanu]

Bien sur que j'ai essayé. Ca défoule. L'année commence bien.

 

[patricktoulon]

 

[JDL33]

Bonsoir tout le monde.
Quitte à s'amuser, on peut continuer, ça détend.
L'avantage de la pièce jointe est que je peux vous assurer que la combinaison qu'il délivre sortira un jour.

Bonsoir Sylvanu

Bravo et merci, ça correspond parfaitement à ma demande.

Suivant les réglages du minuteur, je rencontre un beugue, est-ce possible de mettre un bouton « Quitter » pour sortir de cette boucle infinie.

Merci

Cordialement

 

[mapomme]

Re,

Quelqu'un peut-il m'expliquer à quoi ça sert cette notion de temps ou durée pour le tirage d'une seule combinaison au bout du bout ? On peut s'arrêter à la première combinaison trouvée puisque c'est une combinaison de nombres aléatoires, non ?
(tout comme sera la dernière...)

 

[sylvanu]

Quelqu'un peut-il m'expliquer à quoi ça sert cette notion de temps

Absolument à rien. Pourquoi donc voulez vous que cela serve à quelque chose ?
Sauf si à tirer N fois un nombre aléatoire, ce nombre serait encore plus aléatoire que le premier.

Suivant les réglages du minuteur

Vous pouvez me donner les dits réglages ? car je ne vois pas dans le code la configuration qui donnerait une boucle infinie.

 

[mapomme]

Sauf si à tirer N fois un nombre aléatoire, ce nombre serait encore plus aléatoire que le premier.

Si vous n'exigez pas de droits d'auteur, je m'en re-servirai.

 

[patricktoulon]

re
en ce qui me concerne le timer est simplement pour ralentir pour le visuel

 

[JDL33]

Absolument à rien. Pourquoi donc voulez vous que cela serve à quelque chose ?
Sauf si à tirer N fois un nombre aléatoire, ce nombre serait encore plus aléatoire que le premier.

Vous pouvez me donner les dits réglages ? car je ne vois pas dans le code la configuration qui donnerait une boucle infinie.

Excusez-moi pour le retard !

A vrai dire, j’ai recherché si le programme pouvait beuguer en faisant des réglages en dehors des limites d’utilisation.

Temps de calcul : 10000 ms

Temps entre deux calculs : 1 ms

Je n’ai pas eu d’affichage et le programme tourne sans fin, dans cette condition j’ai pensé qu’il serait utile d’avoir un bouton de sortie pour éviter (Ctrl+Alt+Supp).

Merci

Cordialement

 

[maart]

Bonjour, j'ai compris, vous voulez reproduire les conditions exactes du tirage? Mais alors pourquoi faire autant de tirages, le premier suffirait?

 

[sylvanu]

Bonjour tout le monde,
Une V5 en PJ.
Evidemment avec 10s et 1ms !
Comme le temps court est là pour un aspect purement visuel, sous 10ms cela ne plus rien dire, c'est en dessous la période de rafraichissement de l'écran.
Dans cette nouvelle mouture :
1- En cas de souci, on sort par appui sur Echap.
2- Le temps court est bridé à 10ms min.
3- Un historique a été rajouté.
On va considérer que c'est la dernière mouture. Vous avez tout le code nécessaire pour bidouiller comme bon vous semble.

 

[maart]

Mais je reste persuadé qu'un book Python séquentiel , Anaconda par ex, serait plus performant ....

 

[sylvanu]

Mais alors pourquoi faire autant de tirages, le premier suffirait?

Mais tout simplement parce que JDL veut le même visuel que les boules qui tournent dans la sphère. Comme à la télé.
Plus rien à voir avec l'aspect aléatoire du tirage.