Bonjour j'ai un exercice à faire et j'ai du mal..
 
Voici l'énnoncé:  
 
Ecrire un programme PG1() :
- qui effectue le lancer de 3 dés
- puis qui calcule le nombre de points gagnés par l'utilisateur selon la règle du jeu suivante :
si la somme des résultats donnés par les trois dés est strictement inférieure à 10, aucun
point n'est gagné ;
si la somme des résultats est comprise entre 10 et 15 (bornes comprises), le nombre de
points gagnés vaut 2 ;
si la somme des résultats est strictement supérieure à 15, le nombre de points gagnés
vaut 8 ;
- puis qui affiche les trois résultats ainsi que le nombre de points gagnés dans une même boite
de dialogue
 
Voici mon programme :  
 
 
Sub dé()
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim score As Integer
x = Int((Rnd * 6) + 1)
y = Int((Rnd * 6) + 1)
z = Int((Rnd * 6) + 1)
If x + y + z < 10 Then
score = 0
ElseIf x + y + z >= 10 And x + y + z <= 15 Then
score = 2
ElseIf x + y + z > 15 Then
score = 8
End If
MsgBox ("les 3 lancés sont" & " " & x & " " & y & " " & z & " " & "vous avez gagné" & " " & score & " " & "points" )
End Sub
 
 
On me demande alors d'écrire le code d'une fonction jeu(x,y,z) qui calcule le nombre de points gagnés à partir de trois
résultats de lancers de dés passés en paramètres.
 
Mais la je ne vois pas pouvez vous m'aider ?

salut

oulah merci lol meme si pour moi c'est deja compliqué il y a pleins de truc que 'lon a pas vu en cours comme "debug print" "ByVal" ,"select case itotal etc..."

Bref,il n'y a qu'en forgeant que ....