XL 2016 [Résolu] Une roulette de nombres

[Bearn 64]

Bonjour le Forum,

Je bute sur la vitesse d'affichage des nombres.
j'aurai aimé avoir un tirage aléatoire d'un nombre de 1 à 100, et ceux pour 8 fois, sans avoir de doublons.

Dans le fichier joint les nombres défilent mais pas assez vite au départ.
L'effet rechercher serait de faire défiler les nombres rapidement plusieurs fois puis de ralentir progressivement jusqu’à l’arrêt sur un nombre.

A l'appui sur le bouton start on relance mais le nombre précédemment sorti ne doit plus être gagnant.

Merci de vos conseils.

 

[Bearn 64]

Bonjour Ce lien n'existe plus,

Ton appli est très complète.

Effectivement le loto jusqu’à 90 numéro.

Avec l'aide du forum j'avance sur mon aventure roue du Loto.

Merci de ton intervention

 

[Modeste geedee]

Bonsour®

Bo njour Ce lien n'existe plus,
Ton appli est très complète.
Effectivement le loto jusqu’à 90 numéro.

cette application n'a pas été finalisée ni diffusée, ​

suite au mauvais accueil au niveau associatif : les participants jugeant ne pas faire confiance à un tirage automatisé... 🙁( cage et boules virtuels...😱)
Il n'y a pourtant aucune anticipation , le numéro n'est affiché que juste avant sa sélection aléatoire
parmi les numéros non encore sortis, ce numéro est alors retiré de cette liste.

manque donc

la doc d''utilisation restreinte au cercle familial​

reste quelques bugs ou anomalies au niveau interface HMI (enchainement et sortie de mode)​

 

[Bearn 64]

Re,

Passé a 90 numéros.

Mon reset n'as pas l'air au top !!!!

 

[Modeste geedee]

Bonsour®

Re,

Mon reset n'as pas l'air au top !!!!​

Passé a 90 numéros.

🙄 Sauf là :
Sub efface()
[C2:C101].ClearContents: bas = 1
For k = 1 To 99
UserForm1.Controls("TextBox" & k).BackColor = &HFFFFFF
UserForm1.Controls("TextBox" & k) = ""
Next
End Sub

 

[youky(BJ)]

Je viens de voir que j'ai loupé des discutions.
Bon je joint le fichier avec les modifs
Le mp3 doit être maintenant dans le même dossier et non plus en G:\
Tirage sans doublon jusqu'à Reset
Ajouté Textbox100 en transparent sans bordure pour que le focus soit dessus (moins visible)
Bon si faut que 90 cases c'est facile de modifier
Bruno

 

[Bearn 64]

Re,

Bien mais quand je clique sur reset la roue tourne encore un tour !!!!

 

[youky(BJ)]

Ah Oui !
Enlève le traite en workbook_open
Bruno

 

[Bearn 64]

Re,

Merci ok
Pour
Ajouté Textbox100 en transparent sans bordure pour que le focus soit dessus (moins visible)
comment faire.

 

[youky(BJ)]

Fait un petit textbox avec une petite écriture le curseur sera moins grand
Fond =transparent
Bordure= none
BackStyle= plat

 

[Bearn 64]

Ok, pour que le curseur reste dans ce textbox ?

 

[Si...]

Bon_soir

Un autre exemple (moins Fun que celui de Geedee 😉).

Nota : les macros ne sont pas dispersées, le Mp3 doit-être dans le même dossier.

 

[Bearn 64]

Merci Si...

Si... Merci

 

[youky(BJ)]

Bearn,
T'embête pas avec le textbox100 supprime le.
Par contre dans la macro userform_initialize ajoute ce code en dernière ligne
Me.CommandButton1.SetFocus
cela mettera le focus sur le bouton
Bruno

 

[Bearn 64]

Bonjour et merci à tous.

Je vais tester sur le terrain dans mon Assos.

Encore un grand merci.

 

[Bearn 64]

Bon_soir

Un autre exemple (moins Fun que celui de Geedee 😉).

Nota : les macros ne sont pas dispersées, le Mp3 doit-être dans le même dossier.

Bonsoir Si,
Le fichier loto.zip

Les nombres sortent mais ne sont pas uniques il y a des doublons.

Merci de votre regard.

post 26