Voilà je dois faire un petit exercice dans le cadre de mon cours d'info dont voici l'énoncé:
 

 
Et voici le code que j'ai fait:
 

 
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
 

Hello. Tente donc ca :
 
Sub Lottosub()
 
Dim numero As Single
Dim resultat As Single
Dim gagneouperdu As String
Dim i As Integer
 
numero = Cells(1, 2)
gagneouperdu = "Perdu !"
 
For i = 1 To 2
    Cells(i, 3).Value = Int(Rnd * 10 + 1)
    If Cells(i, 3).Value = numero Then
        gagneouperdu = "Gagné !"
    End If
Next i
     
Cells(2, 2) = gagneouperdu
 
End Sub

Pour détailler un peu plus, les erreurs dans ton code :
- Ta ligne
resultat = Range("C1:C20" ).Value = Int(Rnd * 10 + 20)
est effectivement vachement hasardeuse. Et si tu vires le début, tu t'apercevras qu'il te remplit bien les 20 cases, mais avec 20 fois la même valeur. D'où le besoin d'une boucle. Un petit tour dans l'aide en ligne du VBA te dira tout ce que tu as besoin de savoir sur les différentes manières de goupiller une boucle (for..next, do..while, do..until).
 
- Tu lui dis :
gagneouperdu = Cells(2, 2)
avant même d'avoir déterminé ce que vaut gagneouperdu. Et tu écris ton égalité dans le mauvais ordre.

Merde. Forcément, à faire le malin comme ca, c'est clair que j'allais me bourrer. Pour la boucle, c'est For i=1 to 20, naturellement, et pas 2...

Rha merci ça marche
 
Cependant je pige pas pourquoi la ligne "gagneouperdu="Perdu!"" vient aussi tôt, j'aurais mis ça après un Else dans l'instruction If, ça peut marcher aussi non?
 
Mais je comprends la logique du reste, donc c nickel
 
Un grand merci

 
Non, ca marcherait pas. Si tu mets ton if..then..else dans la boucle, ton gagneouperdu va être alternativement perdu ou gagné au fur et à mesure que i va croître de 1 à 20. Et au final, il ne te dira que si le dernier chiffre de la colonne C vaut la valeur "numero".
 
Là, on initialise gagneouperdu comme valant "perdu". Et si on tombe au moins une fois parmi les 20 chiffres aléatoires sur la bonne valeur, on lui dit "gagne". Sinon, il vaudra toujours "perdu" après la boucle.
 
Si tu veux voir la différence, tu n'as qu'à mettre le test if..then..else dans la boucle, puis tester pas à pas avec le débuggeur.

Bien vu , merci