Création d'un jeu Memory en VBA

Pour vider le score, c'est la b-a ba de la base...
Dans le code de ton bouton ajoute

Code:

---

Range("G11")=""

---

Pour le meilleur score, ça dépend.
S'il y a plusieurs joueurs, est-ce que tu veux le meilleur score du joueur en cours ou le meilleur score de tous les temps ?

Dans le 2e cas, il te faut juste vérifier à la fin de la macro Résultats si G13 est plus petit que G11.
Si oui, tu mets en G13 la valeur de G11

Code:

---

1 2 3

Range("G11") = "'" & Total & "/36" t = Split("0" & [G13], "/") If Int(t(0)) < Int(Total) Then [G13] = "'" & Total & "/36"

---

Je n'ai pas très bien saisi pour le meilleur score, je dois donc écrire ce code ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Resultats() Dim I As Integer, J As Integer For I = 0 To 5 For J = 0 To 5 If Cache(I, J) = Courant(I, J) Then Total = Total + 1 End If Next Next Range("G11") = Total Range("G13") = Total End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Resultats() Dim I As Integer, J As Integer For I = 0 To 5 For J = 0 To 5 If Cache(I, J) = Courant(I, J) Then Total = Total + 1 End If Next Next Range("G11") = Total If Range("G13")) < Range("G11") then Range("G13") =Range("G11") End Sub

---

Code:

---

1 2 3 4

If Range("G11") > Range("G13") Then Range("G13") = Range("G11") Msgbox "Bravo, vous avez battu le meilleur score !" End If

---

J'ai enfin terminé le jeu, merci mille fois de m'avoir épauler pour la réalisation de ce dernier.

En tout cas je ferai une bonne publicité de ce site !

Cordialement, Bandofbrothers.