Problème de formules dans le jeu " tic tac toe" ou morpion

Re : Problème de formules dans le jeu " tic tac toe" ou morpion

c'est bien ça vous ne vous êtes pas gourer
j'ai mis la même macro pour RA0 mais ça ne marche pas

Re : Problème de formules dans le jeu " tic tac toe" ou morpion

Dull je te remercie pour la macro

Re : Problème de formules dans le jeu " tic tac toe" ou morpion

sinon pour la Remise à zéro du score j'ai cette macro, mais lorsque je l’exécute, les 2 macros pour l'annonce de score/partie ne marchent plus!!
Sub Remiseàzéro_Score()
Range("G14:J15").FormulaR1C1 = "0"
End Sub

Re : Problème de formules dans le jeu " tic tac toe" ou morpion

j'ai réussi ma macro

Re : Problème de formules dans le jeu " tic tac toe" ou morpion

Re,

j'ai réussi ma macro

Cliquez pour agrandir...

J'en suis heureux pour vous à toutes fins utiles

Re : Problème de formules dans le jeu " tic tac toe" ou morpion

Re le fil,

Victor21 à dit:

Re,
J'en suis heureux pour vous à toutes fins utiles

Cliquez pour agrandir...

Je dirais même plus mon cher Dupond ...Moi...c'estDupont

Energy_Star à dit:

j'ai réussi ma macro

Cliquez pour agrandir...

Peut-on en profiter Professeur Tournesol?
Manque Robert qui ferait un sacré Capitaine Haddock

Bonne Journée

Re : Problème de formules dans le jeu " tic tac toe" ou morpion

Dès que je finis la macro pour le score final et celle pour "Match nul" je vous envoie
Dans cette macro pour le score final, est ce qu'il y a possibilité de transférer les score sans message d'erreur ni de bouton affecter à cette même macro

Option Explicit
Public Flag As String

Sub Macro1() '---Transfert du résultat
' Si SOMME(Feuil1!$M$4:$M$5)=0, message d'erreur, et on sort
If [Total] = 0 Then MsgBox ("Aucun résultat à reporter"): Exit Sub
' Dans la feuil2
With Sheets("Feuil2")
' Sur la première ligne vide colonne B, on inscrit la valeur de M4(feuille1)
.Range("b65536").End(xlUp).Offset(1, 0) = Sheets("Feuil1").Range("M4").Value
' Sur la première ligne vide colonne c, on inscrit la valeur de M5(feuille1)
.Range("b65536").End(xlUp).Offset(0, 1) = Sheets("Feuil1").Range("M5").Value
End With
' On efface la zone "Jeu" (F2:H5 en Feuil1)
[Jeu].ClearContents
' On efface le flag contenant la mémorisation du dernier joueur
Flag = ""
' Et on se positionne sur D3 de Feuil1
Sheets("Feuil1").Range("D3").Select
End Sub

Re : Problème de formules dans le jeu " tic tac toe" ou morpion

alors voilà j'ai réussi à faire la macro match nul et celle pour le score final
TADAMM