Rnd qui ne donne pas que des bonnes valeurs

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:

---

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

Bonjour, essaye comme ça chez moi ça marche

Code:

---

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+

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