Discussion :

[kubito]

bonsoir a tous,

je voudrais qu'un nombre aléatoire compris entre 1 et 8 me soit donné a chaque clic sur un bouton.
J'ai donc mis le code suivant :

Code :

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

1
2
3
4
5
6
7
8
Private Sub cmdApparier_Click()
Dim X, Y As Integer
For X = 1 To XNRonde
  Randomize
  Y = (8 * Rnd) + 1
  Me.txtEquipe1R.Value = "Equipe " + Str(Y)
Next
End Sub

Le probleme, c'est qu'il me sort de temps en temps des 9 ?!
Savez vous ou est mon erreur ?
Merci d'avance

[niclalex]

Bonjour, essaye comme ça chez moi ça marche

Code :

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

1
2
3
4
5
6
7
8
9
private Sub cmdApparier_Click()
Dim X, Y As Integer
For X = 1 To 10
  Randomize
  Y = Int(8 * Rnd) + 1
  Me.txtEquipe1R.Value = "Equipe " + Str(Y)
    Debug.Print Y
Next
End Sub

cf F1 sur Rnd
A+

[kubito]

Merci, apparemment ca marche.
J'avais fait le F1 mais il ne parle pas du "debug", en tout cas pas dans Access 2003 (je ne l'ai pas vu).

Encore merci.

Désolé, en fait je viens de réessayer, il me met toujours des 9

Je suis vraiment une quiche, j(avais oublié le "int" devant la formule.
Ok, apparemment, ca marche.

Merci