Discussion :

[bobob2]

Bonjour !

Je suis en train de faire un travail pratique avec VBA Excel. Il s'agit de coder un jeu de Tic-Tac-Toe.

Il faut que quand je clique sur une des cellules du Tic-Tac-Toe (Range("A1:A3,B1:B3,C1:C3")), une macro s'exécute (un message apparaît dans une cellule).

Puis, ensuite, si je clique une seconde fois sur une des cellules du Tic-Tac-Toe, une autre macro s'exécute (un X bleu apparaît dans la cellule sélectionnée).

Je n'arrive pas à faire en sorte que les macros s'exécutent successivement : je clique, macro 1 s’exécute, je clique une seconde fois, macro 2 s'exécute. Dans mon cas, c'est ça qui ce passe : je clique, les deux macros s'exécutent l'une après l'autre sans que j'aie à cliquer une seconde fois

Que faire ???

Merci d'avance !

[clementmarcotte]

Bonjour,

Si j'ai bien compris

Code :

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

1
2
3
4
Sub Worksheet_SelectionChange()
     macro1
     macro2
end sub

P.S. Pour ceux qui ne sauraient pas, le Tic-Tac-Toe du Québec, c'est le morpion de la France.

[bobob2]

Oui c'est ça, pour être plus précis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not Intersect(Range("A1:A3,B1:B3,C1:C3"), Target) Is Nothing Then
     Call TicTacToe_Debut
End If
 
If Not Intersect(Range("A1:A3,B1:B3,C1:C3"), Target) Is Nothing Then
     Call TicTacToe_XJoue
End If
 
End Sub

TicTacToe_Debut et TicTacToe_XJoue sont les 2 macros.

Mais là les 2 macros s’exécutent en même temps Moi je veux une pause entre les deux.

P.S. Haha vous m'avez démasqué je suis bien québécois

[SfJ5Rpw8]

Bonsoir,

il faudrait que tu nous en dise plus sur la succession de tes clics...

si j'ai bien compris tu veux que lors d'un clic sur une cellule un message apparait (Macro1) ... et si l'on clique à nouveau sur cette même cellule on lance la Macro2 ... mais que doit-il ce passer si l'on clique par exemple sur une cellule puis que l'on change d'idée et l'on clique sur celle d'as côté ..?


tu parle d'un "message" qui apparaît dans ta cellule lorsque l'on clique une première fois dessus , ne peut-on pas utiliser ce "message" pour basculer sur macro2... ainsi si on clique sur une cellule on vérifie si "message" présent s'il ne l'est pas on lance Macro1 sinon Macro2 ...




PS : Pour Wikipedia tic tac toe c'est des lignes de 3 cases et morpion de 5 cases et pas seulement au Quebec..

[bobob2]

En fait, le message de la macro 1 s'affiche dans une cellule en dessous du Tic-Tac-Toe, pas dans la cellule sur laquelle on clique...

Si je clique une première fois sur une des cellules du Tic-Tac-Toe, le message "Tour de X à jouer" apparaît en dessous du Tic-Tac-Toe (macro 1). Puis si je clique une seconde fois sur une des cellules du Tic-Tac-Toe, un X apparaît dans cette case (macro 2).

[SfJ5Rpw8]

l’enchaînement de tes actions n'est toujours pas clair ... tu veux bien faire une action sur le premier clic dans une cellule ... puis plus tard sur un deuxième clic effectuer une action différente ? ou sur un clic sur une cellule tu veux lancer Macro1 puis après une pause Macro2 s'exécute (sans aucune action supplémentaire..)

[bobob2]

Je veux qu'il faille absolument cliquer une seconde fois sur une cellule du Tic-Tac-Toe pour que la macro 2 s'exécute, c'est-à-dire pour qu'un X bleu apparaisse dans cette cellule.

Pour résumé :
Clic dans le Tic-Tac-Toe, le message apparaît (macro 1), (pause), deuxième clic sur une cellule du Tic-Tac-Toe, un X bleu apparaît dans cette cellule (macro 2).

Après le but c'est de permettre à deux personnes de jouer au Tic-Tac-Toe à tour de rôle avec le programme.

J'ai écrit le pseudo-code du programme si ça peut vous intéresser...

[SfJ5Rpw8]

Toujours pas compris...

Bonsoir,

il faudrait que tu nous en dise plus sur la succession de tes clics...

si j'ai bien compris tu veux que lors d'un clic sur une cellule un message apparait (Macro1) ... et si l'on clique à nouveau sur cette même cellule on lance la Macro2 ... mais que doit t'il ce passer si l'on clique par exemple sur une cellule puis que l'on change d'idée et l'on clique sur celle d'as côté ..?


tu parle d'un "message" qui apparaît dans ta cellule lorsque l'on clique une première fois dessus , ne peut-on pas utiliser ce "message" pour basculer sur macro2... ainsi si on clique sur une cellule on vérifie si "message" présent s'il ne l'est pas on lance Macro1 sinon Macro2 ...

..

[bobob2]

J'ai un Tic-Tac-Toe vide.

Si je clique sur une cellule du Tic-Tac-Toe, le message "Tour de X à jouer" apparaît dans une cellule en dessous du Tic-Tac-Toe.

Ensuite, si je clique à nouveau sur une cellule du Tic-Tac-Toe, un X apparaît dans cette cellule.

[SfJ5Rpw8]

L’enchaînement que tu décris ne me semble pas encore viable.. mais peu-être que ce code t'aideras :

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
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim i As Long
   On Error Resume Next
    i = Target.Count  ' évite plantage lors de sélection feuille entiére..
    On Error GoTo 0
    If Not Intersect(Me.Range("A1:C3"), Target) Is Nothing And i = 1 Then
        If Me.Range("B5") = "" Then
            Me.Range("B5") = "Tour de X a jour"
            Application.EnableEvents = False 'Désactive la gestion événement pour éviter de s'auto-appeler
            Me.Range("B5").Select 'change la sélection
            Application.EnableEvents = True
        Else
            Target.Value = "X"
            Application.EnableEvents = False 'Désactive la gestion événement pour éviter de s'auto-appeler
             Me.Range("B5") = ""
            Me.Range("B5").Select 'change la sélection
            Application.EnableEvents = True
        End If
    End If
 
End Sub

[bobob2]

Oui parfait j'ai pu bidouiller ce que je voulais avec ce code !

Merci beaucoup !

[bobob2]

Juste une dernière petite question...

Comment on fait pour demander à VBA de vérifier si toutes les cellules d'une plage sont pleines ?

Un truc du genre :

Code :

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

1
2
3
If [toutes les cellules de la plage sont plaines] Then
    Do This
End If

Merci !

[bobob2]

Finalement je viens de trouver, j'utilise

Code :

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

WorksheetFunction.CountA(Range("A1:C3"))

pour compter le nombre de cellules pleines.

[hockey10]

Bonjour bobob2

Je crois que j'ai le même travail pratique que toi et j'aimerais bien savoir comment tu as fait pour empêcher que les macros s'exécutent en même temps, c'est-à-dire prendre une pause entre 2 clics.

Merci

[bobob2]

Haha serais-tu en actuariat à l'université Laval par hasard ? En fait il faut que ton programme (private sub worksheet selection change) soit exécuté au complet à chaque fois que tu cliques. Ce qu'il se passe quand tu cliques dépend du contenu de la cellule dans laquelle apparaît le texte !

[hockey10]

haha oui effectivement je suis en actuariat a laval. Dans le fond, le programme est une grosse structure de décision? Et devons nous déclarer des variables?

Dans mon cas, j'ai réussi à faire la première étape qui est d'inscrire Tour de X à jouer mais par la suite lorsque je clic dans une case rien ne se passe. J'aurais besoin d'aide pour le deuxieme clic et ainsi de suite

[bobob2]

Quand tu cliques une fois, ''tour de X à jouer'' apparaît dans la cellule en dessous.
Puis quand tu clique une seconde fois, puisqu'il y a la valeur ''tour de X à jouer'' dans la cellule en dessous, un X apparaît dans la cellule sur laquelle tu as cliqué !

Ton code doit donc te permettre d'exécuter différentes macros quand tu cliques selon la valeur (le texte) dans la cellule en dessous.

Tu as juste besoin de structures if (et elseif), et en principe tu n'as même pas à déclarer de variables (c'est ce que j'ai fait dans mon cas).

[hockey10]

Merci bobob2 j'ai réussis grâce à ton aide!

[clementmarcotte]

Bonjour,

Essayez quand même de ne pas trop copier; d'un coup que vous seriez dans la même classe.