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