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

 

[maart]

Merci j'avais pas compris ça

 

[Dranreb]

Bonjour.
Une tentative avec un UserForm

 

[JDL33]

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.

Bonjour Sylvanu

Merci beaucoup pour l’ajout de l’historique et bravo pour votre travail.

J’ai testé pour sortir du programme avec « Echap » aucun problème.

Trop cool et hyper content d’avoir enfin un générateur de chiffres aléatoires réglable, qui effectue parfaitement les tirages à ma convenance.

Juste une dernière question, j’ai voulu protéger la feuille en laissant seulement deux cellules actives (100 ms et 10 ms), cela ne fonctionne pas pour le bouton « GO » qui signale que la feuille ne doit pas être protégée.

Je suis radiesthésiste et magnétiseur sur Bordeaux, pour vous remercier de votre travail, si vous avez besoin de mes services pour vous ou votre famille c’est avec plaisir si je peux vous aider.

https://douleurs-addictions.com/
Je ne sais pas comment clôturer ce dossier, je ne trouve pas "Marquer comme solution" !
Cordialement

 

[sylvanu]

Comme j'écris dans toutes les cellules, cela ne marche pas.
En PJ la feuille est protégée et déprotégée par VBA, mot de passe JDL33.
Pour clore le sujet :

Préfixe "Résolu" et "Marquer comme solution"

Voici la nouvelle façon de faire suite à la mise à jour du 22/12/2020 : https://www.excel-downloads.com/threads/forums-aux-questions.20052158/ (obsolète suite à la mise à jour du 22/12/2020) Bonjour, Les personnes posant des questions dans le forum souhaitent souvent pouvoir indiquer que les...

www.excel-downloads.com

Pour mes addictions, il y a bien le VBA, mais je ne sais pas si vous pouvez y faire grand chose.

 

[JDL33]

Bonjour.
Une tentative avec un UserForm

Bonjour Dranreb,
Merci pour votre fichier qui fonctionne très bien, mais il manque le minuteur pour régler les fréquence d'affichage des chiffres aléatoires.
Je cherche à clôturer mon post car Sylvanu à parfaitement résolu ma demande.
Mon générateur de chiffres aléatoires fonctionne à merveille.
Encore merci pour vos recherches
Cordialement

 

[Dranreb]

Je peux ajouter un affichage du temps restant avant sortie du numéro si vous voulez
Si le défilement des numéros jusqu'à position sur celui à sortir n'était pas si utile en fin de compte, il serait plus simple de toujours mettre les 1ers numéros effectivement contenus dans l'objet ListeAléat.

 

[JDL33]

Comme j'écris dans toutes les cellules, cela ne marche pas.
En PJ la feuille est protégée et déprotégée par VBA, mot de passe JDL33.
Pour clore le sujet :

Préfixe "Résolu" et "Marquer comme solution"

Voici la nouvelle façon de faire suite à la mise à jour du 22/12/2020 : https://www.excel-downloads.com/threads/forums-aux-questions.20052158/ (obsolète suite à la mise à jour du 22/12/2020) Bonjour, Les personnes posant des questions dans le forum souhaitent souvent pouvoir indiquer que les...

www.excel-downloads.com

Pour mes addictions, il y a bien le VBA, mais je ne sais pas si vous pouvez y faire grand chose.

Merci pour votre réponse, d'être protégé en cas d'une mauvaise manip.
Je vais essayer de trouver, pour marquer le fil "Résolu" pour éviter vos collègues programmeurs de laisser des fichiers.
Pour votre addiction VBA, conservez la, elle vous évitera quand vous serez âgé de connaître des troubles et problèmes cognitifs, sauf si cette addiction est maladive et cause des problèmes relationnels avec votre femme et enfants.
L'hypnose ou auto-hypnose est une thérapie naturelle, douce et sans effets secondaires pour traiter les addictions.
Encore merci pour tout !
Cordialement

 

[Dranreb]

La version avec un décompte en secondes

 

[sylvanu]

Bonjour Dranreb,
Au lancement de la macro :

 

[Dranreb]

Qu'est ce qui se passe alors ?
La version sans défilement mais qui reproduit un peu plus le mécanisme des sphères: on sort la boule en tête de liste puis on re-désordonne les restantes jusqu'à la sortie suivant
je pourrais ajouter un flash sur le temps arrivant à 0

 

[maart]

problèùe: RytA.lancer est en erreur....

 

[maart]

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.
Alors c'est irréel, les 4 boules tombent avec un délai entre elles de 7 à 9 secondes (pendant que la roue tourne) et, pour la 1ère boule, la roue tourne pendant que Foucaut parle environ 20 secondes !!!!

 

[maart]

Avec cette idée, peut être simuler le tirage. On connait la position des boules au départ (vidéo)
On mélange 20 sec la sphère et on tire la boule 1
On mélange à nouveau (à la vitesse "simulée" de la sphère) et on tire la 2ème boule après 7 sec
et ainsi de suite (le temps de mélange est entre 7 à 9 sec)
Qui sait? le hasard?

 

[sylvanu]

Qu'est ce qui se passe alors ?

Rien. Erreur d'execution 438.

 

[Eric C]

Bonjour le forum
Bonjour le fil

@JDL33 : Post résolu ou solutionné : "Dans la case de la personne qui vous a donné la solution que vous attendiez"
@+ Eric c