Sudoku convivial en vba sous excel

Soyez le premier à donner votre avis sur cette source.

Vue 13 724 fois - Téléchargée 1 586 fois

Description

3 applications :
2 avec des sudokus avec icones à placer dans une grille, en HTML et en VBA Excel.
1 plus complète pour les sudokus numérique :
Cette application Excel permet de générer ou de résoudre tout Sudoku de dimensions 4X4 à 25x25.
Les feuilles de calculs permettent de présenter, mémoriser les solutions ou problèmes.
De nombreuses options dans la feuille de commandes (simple avec boites listes et cases à cocher):
- Définition de la dimension de la grille
- Définition de l'action à faire :
Résoudre un Sudoku saisi ou mémorisé dans une feuille de calcul
Générer un Sudoku avec x% de cases vides
- Permettre ou non l'affichage en cours de calcul
- Rechercher toutes les solutions (différentes) possibles d'un problème, ou de sudokus à partir de
grilles vides.
- Réglage du délai de la recherche, du nb de solutions à afficher avant arrêt ....

Source / Exemple :


Un seul classeur EXCEL contenant le module Visual Basic, et une feuille de commande, 
et feuilles problèmes avec génération de feuilles solutions.
La solution récursivité vraie a été écartée pour cause de sa lenteur.
Travaille de haut en bas de la grille, en essayant successivement 
une suite aléatoire des nombres 1  à dim, pour chaque case et en remontant 
si aucune solution n'est trouvée pour la case ....
Voir la source VBA dans le fichier Excel (procédure maitresse résolution).

Conclusion :


Application 1 et 2 : utilisable avec des enfants, ou si vous êtes un "visuel"

Application 3 : L'inventaire des solutions peut être exhaustif (si on est patient), et la résolution fonctionne avec tout type de sudoku de type 4 à 25.
L'algorithme est le même pour toute les résolutions, sauf pour la génération de grilles 25x25, qui serait trop longue : on obtient des grilles différentes, mais avec une certaine symétrie dans l'aléatoire !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
46
Date d'inscription
jeudi 2 novembre 2006
Statut
Membre
Dernière intervention
5 juin 2010

Vous disposez maintenant de 3 applications Sudoku, qui ne plantent jamais !! jusqu'à votre prochaine remarque...
Messages postés
46
Date d'inscription
jeudi 2 novembre 2006
Statut
Membre
Dernière intervention
5 juin 2010

Bien que très classique, est trés pratique à utiliser.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.