Tirage aleatoire d'un nombre pour LOTO

**zouille** · 08/06/2008, 17h55

Salut a tous

Voila , j'aimerais organiser un loto mais j'ai un petit problème.

J'aimerais réaliser un code VBA avec lequel , en cliquant sur un bouton on verrai un chiffre ( ou une roue) défiler ( comme un chrono) et au bout de quelques secondes , ce chiffre s'arrête pour être affiché à tous le monde , ensuite pour le 2eme chiffre , je clique de nouveau et ainsi de suite et le tout sans me redonner un chiffre qui est déjà sortie.

J'ai essayer de chercher des projets semblables mais j'ai pas trouvé.

Qqun a t il une idée ?

merci

**fring** · 08/06/2008, 19h12

Bonjour,

Il y a un chapitre dans la FAQ sur les valeurs aléatoires, je te donne l'adresse ci-dessous

http://excel.developpez.com/faq/?pag...aleurAleatoire

**ucfoutu** · 08/06/2008, 19h55

Bonjour,

tiens,

Sans cellules et sans doublons ...

Sur une UserForm avec un label Label1 et un bouton de commande command1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
Private Sub Command1_Click()
 Dim parmi As Integer, atirer As Integer, i As Integer, ou As Integer, j As Integer, depart As Date
  parmi = 50 ' pour tirer entre 0 et 50
  atirer = 5 ' pour tirer 4 chiffres (entre 0 et 50, donc)
  Randomize
  Text1.Text = ""
  ReDim tabl((parmi * 2) + 1) As Integer
  For i = 0 To parmi
    tabl(i) = i
  Next
  For i = 0 To parmi
    ou = Int(((parmi - i) * Rnd))
    tabl(parmi + 1 + i) = tabl(ou)
    tabl(ou) = tabl(parmi - i)
  Next
  For i = 1 To atirer
    For j = 0 To parmi
      Label1.Caption = tabl(j + parmi)
      depart = Timer
      While Timer <= depart + 0.1
        DoEvents
      Wend
    Next
    Label1.Caption = tabl(i + parmi)
    Text1.Text = Text1.Text & "  " & tabl(i + parmi)
    MsgBox "N° " & i & " : " & tabl(i + parmi) & vbCrLf & "cliquer OK pour le suivant"
End Sub

Je ne t'y ai mis qu'un seul label, avec son défilement.
A toi d'ajouter les autres labels, de mettre un compteur x dans ton code et de te référer à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Controls("label" & x)

pour affichage, à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label1.Caption = tabl(i + parmi)

au lieu de Label1

EDIT : j'ai finalement ajouté une textbox Text1 et modifié un peu le code d'affichage.
De cette manière, tu n'as besoin que d'un seul Label pour le défilement)