Sudoku

[tatiak]

Voici venu le temps des vacances!!

Il est temps de délaisser son PC pour se reposer sur la plage! Et pendant que nos enfants jouent dans l'eau, à nous les joies de la lecture et des jeux des magazines!

Tiens encore un sudoku! Pour faciliter la réflexion, rien ne vaut 2 ou 3 formules et quelques lignes de code pour laisser Excel réflechir à notre place (ben oui, on est en vacances)!

C'est ce qui est proposé dans le fichier joint : chaque clic sur le bouton permet de remplir un "niveau" de cases.
En 3 à 5 clics, une grille "facile" est résolue, la grille "diabolique" est trouvée en un peu plus de temps en "testant" 1 ou 2 hypothèses.

Nous voici donc avec un outil de productivité incontournable!

Mais où est le plaisir du jeu, me direz-vous! Au lieu de me posez ce genre de question, allez donc jouer dans l'eau avec vos chers petits!!!

Télécharger le fichier

L'étape suivante serait de coupler un générateur de grille avec ce type de solutionneur, pour laisser Excel travailler en circuit fermé, pendant ce temps là : PLAYA!!!!

(Qui à dit : "inutile"??? )

[Staple1600]

Bonjour

Félicitations pour ton sudoku

Remarques (en passant)
Quand on clique sur [reset], OK à [effacer la grille]

Comment on fait pour crée une nouvelle grille,

Il faut relancer le classeur (sans avoir enregistrer les modifs)?


Est-ce qu'il pourrait y avoir un option

Ne pas voir les chiffres possibles

Encore bravo pour ce jeu (et la concision de ton code)

Bon week end

Staple

[Spitnolan08]

Bonjour Tatiak, Staple1600, le forum

Juste un rappel : Je n'ai pas regardé ton fichier mais il en existe déjà sur Xld.
En particulier ceux de Ti et MDF...

Ci dessous celui de Ti

Bonne fin de week-end

[tatiak]

Bonjour Staple
Grand merci pour tes commentaires!
En fait, il n'y a pas ici de générateur de grille, à la suite d'un reset, on peut recopier "à la main" une grille d'un magazine.
Pour l'affichage/masquage des possibles, j'ai ajouté un p'tit bouton.
J'm'en vais piocher la génération de grilles tiens!
Et vive les vacances!!!

[tatiak]

Bonjour Spitnolan!
J'vais regarder la proposition de Ti, merci du tuyau!

[Spitnolan08]

Re,
Pour info, lorsque je clique sur Auto ça bug là :

Test = .Cells(Ligne, .Range("CO20:CW20").Find(.Cells(i, j).Value, LookIn:=xlValue).Column).Value

Cordialement

[jeanpierre]

Bonjour tatiak, Staple, Spitnolan, le forum,

Je n'ai pas encore ouvert le fichier, un peu de mal sur ce poste... en plus c'est un jeu où je ne comprends rien...

Mais simplement pour dire que, même, si cela existe déjà, pourquoi ne pas en faire une nième approche ?

IL vaut mieux cinquante approches différentes que pas d'approches du tout....

Donc, remerciement à Ti, à Mdf, et à tatiak aussi.... Edit : Suite à l'intervention de notre ami Didier, merci également à Jean-Marie (un fil dont je n'ai aucune souvenance)

Que ce dimanche vous soit moins tristounet qu'ici.

Jean-Pierre

[myDearFriend!]

Bonjour Tatiak, Staple1600, le Forum,

Bravo Tatiak, beau travail .

Cela dit, je ne peux m'empêcher de ressortir un fil de discussion qui date d'un an 1/2 et dans lequel l'excellentissime JeanMarie nous démontrait qu'il était possible (eh oui) de faire un solveur de Sudoku UNIQUEMENT à base de formules !!!
http://www.excel-downloads.com/forum...puissante.html
(voir le fichier joint dans le post de JeanMarie du 18/12/2005 9H40).
Dans menu Outils / Options / onglet Calcul, il suffit de définir le nombre maximal d'itérations à 800 et d'indiquer la valeur 1 en Ecart maximal si vous voulez voir l'évolution des valeurs.

C'est carrément l'exploit ! Et c'est franchement dommage qu'un tel travail se soit perdu dans l'oubli du Forum.

Cordialement,

EDITION:
Pardon et bonjour à vous Spitnolan08 et jeanpierre, je ne vous ai pas vu arriver.

[Spitnolan08]

Re,
Bonjour MyDearFriend, JeanPierre,

Mais simplement pour dire que, même, si cela existe déjà, pourquoi ne pas en faire une nième approche ?

IL vaut mieux cinquante approches différentes que pas d'approches du tout...

Désolé si je n'ai pas mis les formes : Je ne voulais pas dissuader Tatiak mais lui indiquer qu'il existait déjà des approches dont il pouvait s'inspirer pour faire évoluer son déjà très beau travail...
Et je pense, en tout cas j'espère, qu'il l'a compris comme cela à la lecture de sa réponse...

Chagrin, jeanpierre ce matin Ce doit être le temps

Cordialement

[jeanpierre]

Re à tous, Bonjour Didier (MyDearFriend),

Spitnolan, je pense, comme toi, que tatiak a pris ta réponse ainsi.

Chagrin, non, c'était simplement en direct... avec les avantages et les inconvénients......

Un instant qui, une fois passé, devient totalement différent.... alors que tu sois rassuré

Bon dimanche.

Jean-Pierre

[JCGL]

Bonjour à tous,
Pas de détails que des copains ,

Bravo Tatiak

Bravo aussi à Jean-Marie : pfiou, je n'avais pas vu ce fil et comme tous les autres : du grand art. Et avec, toujours, une excellente documentation. Merci

A+

[tatiak]

Un grand salut général à tous!
Merci pour tous vos commentaires!
Ce qui me fait marrer dans cette histoire, et au vu des différents fichiers, c'est de penser qu'il est possible de créer un truc qui génére des grilles puis qui trouve les solutions en circuit fermé, sans intervention humaine : l'ordi qui s'occupe tout seul : l'inutile de l'inutile! Ou plutot simplement : l'exercice de style gratuit réalisé parce qu'un simple jeu de magazine ne nous amuse pas trop, tant qu'on ne peut pas y écrire une p'tite formule ou une p'tite ligne de code. En fait on est des drogués d'xl!!!
Amitiés sincères à tous!
tatiak

[Staple1600]

Re

->Tatiak
moi aussi j'ai donné dans

l'inutile de l'inutile! Ou plutot simplement : l'exercice de style gratuit

Si cela t'interesse, je sollicite ton aide pour ce qui suit
http://www.excel-downloads.com/forum...im-en-vba.html

[JCGL]

Re,

Jean-Marie vient de réactualiser le fil cité par mDF

Itération et Sudoku avec un version 3

A+