mastermind sur excel

Paf

XLDnaute Barbatruc

• 26 Novembre 2016

• #2

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+

 

Vote positif 0 Vote négatif

L

Loison

XLDnaute Nouveau

• 26 Novembre 2016

• #3

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.

 

Pièces jointes

• INFO Adrien.xlsm

  33 KB · Affichages: 86

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 26 Novembre 2016

• #4

re,

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

A+

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 27 Novembre 2016

• #5

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.

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 27 Novembre 2016

• #6

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:

VB:

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

A+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Novembre 2016

• #7

Bonjour à tous,

Pour Paf...

Bise à Chris
A+ à tous

 

Pièces jointes

• INFO Adrien.xls

  115.5 KB · Affichages: 75

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 27 Novembre 2016

• #8

Bonjour JCGL et merci !
A+

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 27 Novembre 2016

• #9

Re,

Dans la feuille de code de la feuille Mastermind :

VB:

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:

VB:

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

A+

edit: rajout de la modification formule

 

Dernière édition: 27 Novembre 2016

Vote positif 0 Vote négatif

L

Loison

XLDnaute Nouveau

• 28 Novembre 2016

• #10

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 28 Novembre 2016

• #11

Bonsour®

Paf à dit:

re,

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

A+

Cliquez pour agrandir...

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


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

 

Pièces jointes

• GD_mind.xls

  174.5 KB · Affichages: 81

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 29 Novembre 2016

• #12

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:

VB:

Sub Macro()
Application.EnableEvents = True
End Sub

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

A+

 

Vote positif 0 Vote négatif

L

Loison

XLDnaute Nouveau

• 29 Novembre 2016

• #13

C'est bon ça marche merci beaucoup

 

Vote positif 0 Vote négatif