mastermind sur excel

[Loison]

Bonjour, je dois réaliser un jeu pour les cours , j'ai décidé de faire un mastermind sur excel , je l'ai réalisé mais je bloque sur quelque chose. Je voudrais établir un record a battre pour les joueurs. Le record se baserait sur le nombre de coups réalisé pour trouver la solution celui ayant fait le moins de coup a le record. Le problème est que je n'arrive pas a garder le record indéfiniment il s'efface a chaque partie que je fais. Je sais qu'il faudrait faire une macro pour cela mais je n'y arrive pas.
Merci de votre réponse.

 

[Paf]

bonjour et bienvenue sur XLD,

Les éléments fournis sont un peu succincts. Sans un classeur exemple, la réponse pourrait ne pas être adaptée ou vague...

A+

 

[Loison]

Voici le classeur exemple. Merci pour votre réponse je voudrais faire apparaitre le record sur la feuille accueil et que celui ci ne disparaisse pas a chaque partie.

 

[Paf]

re,

désolé, impossible de convertir votre classeur pour Excel 2003 (plantage à répétitions). Si vous pouviez joindre une version exploitable (.xls)

A+

 

[chris]

Bonjour

Si cela doit être conservé le temps d'une session Excel, on peut stocker les infos de la partie dans un tableau (array) static ou, comme dans le cas, où cela doit être conserver sur plusieurs sessions, dans un tableau d'une feuille masquée.

 

[Paf]

Re et bonjour chris,

toujours pas pu ouvrir, mais:

si le résultat est en B2 et le record en B3, dans la feuille de code de la feuille concernée:

Private Sub Worksheet_Calculate()
Range("B3") = Application.WorksheetFunction.Min(Range("B3"), Range("B2"))
End Sub

A+

 

[JCGL]

Bonjour à tous,

Pour Paf...

Bise à Chris
A+ à tous

 

[Paf]

Bonjour JCGL et merci !
A+

 

[Paf]

Re,

Dans la feuille de code de la feuille Mastermind :

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
With Worksheets("Accueil")
If .Range("L10") = "" Then
    .Range("L10") = Range("B11")
    .Range("I10") = Range("B8")
Else
    If Range("B11") < .Range("L10") Then
        .Range("L10") = Range("B11")
        .Range("I10") = Range("B8")
    End If
End If
End With
Application.EnableEvents = True
End Sub

Et, pour éviter le #NA ( et le plantage du code) en début de partie, en B11 de la feuille Mastermind , il faudrait utiliser la fonction sierreur() => =sierreur(RECHERCHEV(4;D13:E36;2;FAUX); "")


Par ailleurs, dans les différentes sub, pour 'vider' la zone de saisie, plutôt que de le faire cellule par cellule, on pourrait utiliser:

Worksheets("Mastermind").Range("F13:I36").ClearContents

A+

edit: rajout de la modification formule

 

[Loison]

Merci de votre reponse mais je n'ai pas compris le code que vous m'avez envoyé pour la feuille de code mastermind, cela n'a aucun impact sur le faite que mon record disparait a chaque partie.
Merci beaucoup pour votre fonction =sierreur

 

[Modeste geedee]

Bonsour®

re,

désolé, impossible de convertir votre classeur pour Excel 2003 (plantage à répétitions). Si vous pouviez joindre une version exploitable (.xls)

A+

Pour le fun...
ça marchait il y a déjà 15 ans ...
ça marche encore !!!

Ouppppsssss...
je n'ai pas retrouvé les sons.wav

 

[Paf]

Bonjour Modeste geedee, et merci...

mais ma demande n'avais pas pour but de jouer , mais d'essayer d'apporter une solution à Loison.

@ Loison : curieux Calculate ne se déclenche pas

essayer de lancer cette macro:

Sub Macro()
Application.EnableEvents = True
End Sub

puis supprimer du code proposé au post 9, les deux lignes : Application.EnableEvents =...

A+

 

[Loison]

C'est bon ça marche merci beaucoup