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 :
Le probleme, c'est qu'il me sort de temps en temps des 9 ?!
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
Savez vous ou est mon erreur ?
Merci d'avance
Partager