Jeux Tic Toc sur Excel VBA

  Par Taoufik Aouiti

 

1. Code associé aux clics de chaque joueur

Private Sub Cmd1_Click()

    If Cmd1.Caption = "X" Or Cmd1.Caption = "O" Then

    'nothing

        Else

        If Cocher = False Then

        Cmd1.Caption = "X"

        Cocher = True

        Else

        Cmd1.Caption = "O"

        Cocher = False

        End If

        Call Score

    End If

End Sub

2. Code pour calculer le score après chaque click

Private Sub Score()

'****************************************

If (Cmd1.Caption = "X" And cmd2.Caption = "X" And cmd3.Caption = "X") Then

Call colorer_Juste(1, 2, 3) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.TXT_Joueur_X & "  !  Vous avez gagné", vbInformation

'MsgBox "Bravooooooo  " & Me.TXT_Joueur_X & "  !  Vous avez gagné", vbInformation

lbl_score_x.Caption = lbl_score_x + 1

End If

If Cmd1.Caption = "O" And cmd2.Caption = "O" And cmd3.Caption = "O" Then

Call colorer_Juste(1, 2, 3) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.txt_Joueur_Y & "  !  Vous avez gagné", vbInformation

lbl_score_o.Caption = lbl_score_o + 1

End If

'************************************************************

If (cmd4.Caption = "X" And cmd5.Caption = "X" And cmd6.Caption = "X") Then

Call colorer_Juste(4, 5, 6) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.TXT_Joueur_X & "  !  Vous avez gagné", vbInformation

lbl_score_x.Caption = lbl_score_x + 1

End If

If cmd4.Caption = "O" And cmd5.Caption = "O" And cmd6.Caption = "O" Then

Call colorer_Juste(4, 5, 6) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.txt_Joueur_Y & "  !  Vous avez gagné", vbInformation

lbl_score_o.Caption = lbl_score_o + 1

End If

'************************************************************

'************************************************************

If (cmd7.Caption = "X" And cmd8.Caption = "X" And cmd9.Caption = "X") Then

Call colorer_Juste(7, 8, 9) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.TXT_Joueur_X & "  !  Vous avez gagné", vbInformation

lbl_score_x.Caption = lbl_score_x + 1

End If

If cmd7.Caption = "O" And cmd8.Caption = "O" And cmd9.Caption = "O" Then

Call colorer_Juste(7, 8, 9) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.txt_Joueur_Y & "  !  Vous avez gagné", vbInformation

lbl_score_o.Caption = lbl_score_o + 1

End If

'************************************************************

'************************************************************

If (Cmd1.Caption = "X" And cmd4.Caption = "X" And cmd7.Caption = "X") Then

Call colorer_Juste(1, 4, 7) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.TXT_Joueur_X & "  !  Vous avez gagné", vbInformation

lbl_score_x.Caption = lbl_score_x + 1

End If

If Cmd1.Caption = "O" And cmd4.Caption = "O" And cmd7.Caption = "O" Then

Call colorer_Juste(1, 4, 7) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.txt_Joueur_Y & "  !  Vous avez gagné", vbInformation

lbl_score_o.Caption = lbl_score_o + 1

End If

'************************************************************

'************************************************************

If (cmd2.Caption = "X" And cmd5.Caption = "X" And cmd8.Caption = "X") Then

Call colorer_Juste(2, 5, 8) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.TXT_Joueur_X & "  !  Vous avez gagné", vbInformation

lbl_score_x.Caption = lbl_score_x + 1

End If

If cmd2.Caption = "O" And cmd5.Caption = "O" And cmd8.Caption = "O" Then

Call colorer_Juste(2, 5, 8) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.txt_Joueur_Y & "  !  Vous avez gagné", vbInformation

lbl_score_o.Caption = lbl_score_o + 1

End If

'************************************************************

If (cmd3.Caption = "X" And cmd6.Caption = "X" And cmd9.Caption = "X") Then

Call colorer_Juste(3, 6, 9) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.TXT_Joueur_X & "  !  Vous avez gagné", vbInformation

lbl_score_x.Caption = lbl_score_x + 1

End If

If cmd3.Caption = "O" And cmd6.Caption = "O" And cmd9.Caption = "O" Then

Call colorer_Juste(3, 6, 9) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.txt_Joueur_Y & "  !  Vous avez gagné", vbInformation

lbl_score_o.Caption = lbl_score_o + 1

End If

'************************************************************

If (Cmd1.Caption = "X" And cmd5.Caption = "X" And cmd9.Caption = "X") Then

Call colorer_Juste(1, 5, 9) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.TXT_Joueur_X & "  !  Vous avez gagné", vbInformation

lbl_score_x.Caption = lbl_score_x + 1

End If

If Cmd1.Caption = "O" And cmd5.Caption = "O" And cmd9.Caption = "O" Then

Call colorer_Juste(1, 5, 9) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.txt_Joueur_Y & "  !  Vous avez gagné", vbInformation

lbl_score_o.Caption = lbl_score_o + 1

End If

'************************************************************

If (cmd3.Caption = "X" And cmd5.Caption = "X" And cmd7.Caption = "X") Then

Call colorer_Juste(3, 5, 7) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.TXT_Joueur_X & "  !  Vous avez gagné", vbInformation

lbl_score_x.Caption = lbl_score_x + 1

End If

If cmd3.Caption = "O" And cmd5.Caption = "O" And cmd7.Caption = "O" Then

Call colorer_Juste(3, 5, 7) ' colorer la ligne juste

MsgBox "Bravooooooo  " & Me.txt_Joueur_Y & "  !  Vous avez gagné", vbInformation

lbl_score_o.Caption = lbl_score_o + 1

End If

'************************************************************

End Sub

3. Code pour colorer les choix qui ont gagné

'Code pour colorer les choix qui ont gagné

Sub colorer_Juste(j, h, k)

Me.Controls("cmd" & j).BackColor = &H8000000D

Me.Controls("cmd" & h).BackColor = &H8000000D

Me.Controls("cmd" & k).BackColor = &H8000000D

End Sub

4. Code associé au bouton « rejouer »

Private Sub cmd_Rejouer_Click()

Dim i As Integer

For i = 1 To 9

Me.Controls("cmd" & i).BackColor = &H8000000F

Me.Controls("cmd" & i).Caption = " "

Next

End Sub

5. Code associé au bouton « Recommencer »

Private Sub cmd_reprendre_Click()

Dim i As Integer

For i = 1 To 9

Me.Controls("cmd" & i).BackColor = &H8000000F

Me.Controls("cmd" & i).Caption = " "

Next

Me.lbl_score_o.Caption = 0

Me.lbl_score_x.Caption = 0

End Sub

6. Code Pour afficher la table du jeu

Sub Bouton1_Cliquer()

UserForm1.Show

End Sub

Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.