Pourquoi dans mon programme, la solution est toujours 1? Le but du programme est de trouver le chiffre mystère qui est aléatoire à chaque fois... Merci à vous!
- Code: Tout sélectionner
Option Explicit
Sub alea()
Dim mys As Integer
Dim nbsaisi As Integer
Dim nbcoup As Integer
Randomize
mys = Int(1000 = Rnd) + 1
nbcoup = 0
Do
nbsaisi = InputBox("Saisir une solution :")
nbcoup = nbcoup + 1
If nbsaisi > mys Then
'MsgBox ("Votre nombre est trop grand!")
MsgBox ("C'est moins!")
Else
If nbsaisi < mys Then
'MsgBox ("Votre nombre est trop petit!")
MsgBox ("C'est plus!")
End If
End If
Loop Until nbsaisi = mys
MsgBox ("Félicitation! ;) La réponse est bien " & nbsaisi & " Vous avez trouvez en " & nbcoup & " coups")
End Sub