Discussion :

[tomtomca]

Bonjour,

J'aimerai faire un programme pour un jeu de fléchette en 301.

On commence par une inputbox 'nombre de joueurs"

et en fonction de la réponse on demande a chaque joueur chacun leurs tours de rentrer leurs score.

Il faut donc mémoriser le score d'avant et tout arrêter si quelqu'un arrive a 301.

La particularité c'est que si il reste 5 ou autres a faire pour tel ou tel joueur mais que celui ci fait + il faut additionner. ( exemple : joueur 2 est a 300 il lui reste donc 1, si il fait 5 il lui restera donc 6 )


J'ai commencé un VBA mais j'suis sur qu'il y a une maniere facile en boucle de faire ca. Pouvez vous m'aider ?

Merci d'avance

[ffdream62]

Poste ton code peut être

[Gado2600]

Passe par une ou des variables intermédiaires.
Elles te permettront de faire tes calculs et de voir ce que ton programme doit faire en fonction de celles-ci.

[Ben_L]

Bonjour,

Ci-dessous, une proposition, à adapter à vos besoins.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Flechettes()
    Dim nJoueurs As Integer, Scores() As Integer, Tour As Long, J As Integer
    Dim Message As String, i As Integer
    nJoueurs = CInt(InputBox("Entrez le nombre de joueurs"))
    ReDim Scores(nJoueurs - 1)
    Tour = -1
    Do
        Tour = Tour + 1
        J = Tour Mod nJoueurs
        Scores(J) = Scores(J) + CInt(InputBox("Entrez le score du joueur " & J + 1))
        If Scores(J) > 301 Then Scores(J) = 602 - Scores(J)
        If Scores(J) = 301 Then Exit Do
        If J = nJoueurs - 1 Then
            Message = "Résumé des scores à la fin du tour " & Tour & Chr(13)
            For i = 0 To nJoueurs - 1
                Message = Message & Chr(13) & "Joueur " & i + 1 & " : " & Scores(i)
            Next i
            MsgBox Message
        End If
    Loop
    MsgBox "Le joueur " & J + 1 & " a gagné !"
End Sub

Cdt