Discussion :

[orichedo]

Bonjour à tous

je débute en programmation VBA sur Excel...

j'ai tenté de créer le JEU DU MORPION en langage VBA, avec des Userform.

Alors le code pourrait sûrement être simplifié hein... mais comme dit je débute...

J'ai réussi à faire des petits trucs déjà sympa je pense pour commencer, par exemple verrouiller la saisie dans les cases en acceptant juste "x" ou "o", et selon le joueur aussi.

Une fois une case renseignée elle change de couleur et se verrouille...

Bref pour le jeu en lui même pas de problème...

Mon soucis actuel est vers la fin de la procédure...

Une fois le jeu fini j'ai lancé une nouvelle userform où je donne le nom du gagnant et où je propose soit de faire une VENGEANCE (les noms des joueurs resteraient alors identiques) ou alors une NOUVELLE PARTIE (on entre des nouveaux noms de joueurs).

Le jeu se relance normalement par contre là il n'y a plus aucun contrôle actif dans les cases ... On peut rentrer n'importe quelle lettre, ça ne se met plus en couleur etc...

là je bloque...

pourtant j'ai bien fais unload et à nouveau show pour relancer en théorie depuis le début...

Mais un truc se passe mal quelque part... ça ne se réinitialise par correctement...

Si vous pourriez jeter un petit coup d'oeil ça serait cool...

[Nicolas JACQUIN]

Bonjour,

https://www.developpez.net/forums/d8...s-discussions/

Et de montrer ton code dans les balises codes #
Cà t'aideras à avoir plus de réponses

Merci

[patricktoulon]

salut perso pour ce genre de petite choses j'utiliserais les module classes controls sinon le code dans ton userform devient vite une usine a gaz
un exemple comme ca vite fait a l'arrache

prend un userform
met lui un label que tu nomme "joueurs"
met lui 9 textbox pour la grille que tu nomme "T" 1 a 9 (T1,T2,T3,etc....)
met lui un bouton pour nouvelle partie
ajoute un module classe
voila tu a ton morpion
comment me diras tu ?
et bien c'est simple
met ce code dans le userform

Code :

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

1
2
3
4
5
6
7
Dim cl As New Classe1
Private Sub CommandButton1_Click()
cl.eraze Me
End Sub
Private Sub UserForm_Activate()
cl.INIT Me
End Sub

maintenant met ce code dans le module classe

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
Public WithEvents CAS As MSForms.TextBox
Private TxT(10) As New Classe1
Function INIT(usf)
For i = 1 To 9: Set TxT(i).CAS = usf.Controls("T" & i): Next
usf.joueurs.Caption = "joueur1"
eraze usf
End Function
Private Sub CAS_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 joueur = CAS.Parent.Controls("joueurs").Caption
Select Case joueur
Case "joueur1"
If CAS.Value <> "" Or KeyCode <> 88 Then KeyCode = 0 Else CAS.Parent.Controls("joueurs").Caption = "joueur2": CAS.BackColor = vbGreen
Case "joueur2"
If CAS.Value <> "" Or KeyCode <> 79 Then KeyCode = 0 Else CAS.Parent.Controls("joueurs").Caption = "joueur1":: CAS.BackColor = vbRed
End Select
End Sub
Function eraze(usf)
For i = 1 To 9
usf.Controls("T" & i).Value = ""
usf.Controls("T" & i).BackColor = vbWhite
Next
usf.joueurs.Caption = "joueur1"
End Function

voila ton morpion est opérationnel
il te reste plus qu'a ajouter la fonction de test des 3 valeurs identique a chaque click dans la classe bien sur
comme tu peux le constater il y a qu'un seul évènement textbox dans la classe
libre a toi de l'agrémenter de ce que tu veux tu a la base