Bonjour à tous,

Je suis toute nouvelle sur le forum et toute novice en VBA.

J'ai un TP à faire sur Excel / VBA 2007 (je suis dans mes 1ers mois de programmation et c'est là mon premier jeu à réaliser toute seule) le principe est simple, j'ai fait mon arbre puis je l'ai retraduit dans VBA :

Chaque joueur doit répéter à son tour la liste des lettres données par le joueur précédent et en ajouter une.
le joueur qui se trompe a perdu.

Pour le moment, j'ai fait ça :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub PP_Jeu() 
Dim Liste1 As String 
Dim Fin As Boolean 
Dim joueurs As Integer 
Dim Liste2 As String 
Dim Compteur As Integer 
Dim nouvellelettre As String 
 
 
Liste1 = InputBox("Entrer une lettre") 
Fin = False 
joueurs = 1 
Liste2 = "" 
Compteur = 1 
MsgBox (Liste1) 
 
While Fin = False Or Compteur > 50 
Call Echange_J 
Liste2 = InputBox("Entrer la liste") 
 
If Liste1 = Liste2 Then 
nouvellelettre = InputBox("entrez une nouvelle lettre") 
Liste1 = Liste1 & nouvellelettre 
Liste1 = Liste1 & MsgBox(Liste1) 
Call Echange_J 
Else: Fin = True 
End If 
 
Compteur = Compteur + 1 
 
Wend 
 
MsgBox ("Bravo") 
End Sub 
 
Sub Echange_J() 
 
Dim joueurs 
joueurs = 1 
 
If joueurs = 1 Then 
joueurs = 2 
Else: joueurs = 1 
End If 
 
End Sub
Le hic : il tourne seulement une fois, si vous le testez vous verrez que on rentre 2 lettres et qu'après le jeu s'arrête. Il doit tourner tant que fin=false OU tant que les joueurs n'ont pas rentré 50 lettres.

Est ce que vous voyez où je me suis trompée? Je tourne en rond dessus depuis ce matin et j'avoue ne plus y voir bien clair.

Bonne soirée, merci de m'avoir lue.
Configuration:
PC / Windows Vista
Excel 2007