Userform : problème de réinitialisation

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... :mrgreen: 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... :roll:

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

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:

---

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:

---

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
Pièce jointe 288136