Voilà je dois faire un petit exercice dans le cadre de mon cours d'info dont voici l'énoncé:
Citation :
Développez en VBA sous Excel, une nouvelle routine Loto. Cette routine regarde après un nombre entre 1 et 10 dans la cellule B1. Elle calcule alors 20 nombres aléatoires entre 1 et 10. Si le nombre fourni est parmi ces 20 nombres, alors c'est gagné et la fonction retourne le résultat Vrai. Sinon, elle retourne Faux.
Le résultat "Gagné" ou "Perdu" s'affiche dans la cellule B2. Les 20 nombres tirés s'affichent dans la plage C1:C20.
L'instruction VBA qui permet de calculer un nombre aléatoire entre 1 et 10 est : Int (Rnd * 10 +1)
|
Et voici le code que j'ai fait:
Citation :
Sub Lottosub()
Dim numero As Single
Dim resultat As Single
Dim gagneouperdu As String
numero = Cells(1, 2)
resultat = Range("C1:C20" ).Value = Int(Rnd * 10 + 20)
gagneouperdu = Cells(2, 2)
If (resultat Like numero) Then
gagneouperdu = "Gagné!"
Else
gagneouperdu = "Perdu!"
End If
End Sub
|
Je sais que mon erreur se situe au niveau de la ligne résultat, mon calcul n'est pas correct, mais je vois pas comment le corriger.
C'est sûrement pour vous l'enfance de l'art, mais je suis un newbie de chez newbie en info
, j'ai aucune logique de programmation.
Merci d'avance