Bonsoir les libelluliens!
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

Bonjour atao

la formule pour un nombre aléatoire entre 2 valeurs est

Dim upperbound As Integer
Dim lowerbound As Integer

upperbound = 1000
lowerbound = 1

Randomize
mys = Int((upperbound - lowerbound + 1) * Rnd + 1)

Extrait du help du VBA sous Excel

Bonne soirée.

Merci à toi! Le prof en cours ne nous a pas parlé de upperbound et lowerbound mais parfait ça marche!
Voilà le code corrigé :

Code: Tout sélectionner

Option Explicit
Sub alea()
    Dim mys As Integer
    Dim nbsaisi As Integer
    Dim nbcoup As Integer
    Dim upperbound As Integer
    Dim lowerbound As Integer

    upperbound = 1000
    lowerbound = 0
   
    Randomize
    mys = Int((upperbound - lowerbound + 1) * 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

l'erreur est là:
dans la ligne de code:
mys = Int(1000 = Rnd) + 1

'1000 = Rnd' réalise un test pour voir si 1000 est égal au résultat de la fonction rnd (qui retourne un nombre réel entre 0 et 1 aléatoire).
Comme 1000 est différent de ce nombre aléatoire, le test 1000 = Rnd retourne toujours la valeur 0. (vrai=-1, faux=0)
Ainsi int(0) donne 0
et mys donne 0+1 soit 1

Je crois qu'une solution a été trouvée il y a plus d'un an, mais merci tout de même.