Créer un jeu pour l'été VBA

C@thy · 3 Juillet 2013

Bonjour le forum Eh oui, c'est l'été, enfin à ce qu'il paraît...

mon magazine télé préféré (que je ne nommerai pas) me propose un petit jeu que j'aime bien :

il s'agit de deviner un mot de 9 lettres à partir des indices suivants :
1-css
2-aio
3-nsu
et une grille de 9 cases dans laquelle on doit rentrer le mot.
les cases sont numérotées comme suit : 123123123 (en filigrane).

Par conséquent le jeu consiste à tirer aléatoirement un mot dans la liste des mots de 9 lettres
et à les ranger par dans les catégories 1 2 ou 3 par ordre alpha
par exemple ici on part du mot saucisson... on le découpe en 3 morceaux la 1ère, la 4ème et la 7ème lettre vont dans 1, triées par ordre alpha sinon trop facile, la 2ème, 5ème 8ème vont dans 2 etc...

alors s'il y a parmis vous des vbistes qui ont envie de s'amuser, il y a un petit programme à créer, pour ensuite se récréer. Si quelqu'un(e) est intéressé(e) je peux fournir une liste des mots de 9 lettres au singulier

Par avance merci à ceux qui seraient intéressés.

Bises et bonnes ouacances

C@thy

C@thy · 8 Juillet 2013

Re : Créer un jeu pour l'été VBA

Modeste geedee à dit:
un exemple réel de présentation sera bienvenu..

voici le vrai exemple,
le but n'est pas de faire exactement le même, mais de pouvoir imprimer plusieurs énigmes sur une feuille pour emmener la feuille en ouacances
oili oilà.

Bises

C@thy

mapomme · 8 Juillet 2013

Re : Créer un jeu pour l'été VBA

Bonjour à tous,

J'ai complété mon précédent fichier afin soit de trouver des mots qui une fois mélangés ont des analogies avec le mots source soit pour en trouver avec des mélanges "difficiles".

Les critères sont les suivants:

avec ou sans la lettre s à la fin.
indication du nombre de lettres à leur bonne position (au début, milieu ou fin)
Les mots qui une fois mélangés sont égaux à eux-mêmes (prendre la valeur 9 pour le filtre du critère précédent).
C'est une permutation circulaire ou non (si oui, on affiche @ sinon rien). ex: VITICOLES donne ICOLESVIT.
Nombre de lettres identiques au début du mot. ex: CACHEMIRE donne CACHEEIRM ==> 5 lettres au début.
Nombre de lettres identiques à la fin du mot. ex: KANGOUROU donne GANKOUROU ==> 5 lettres à la fin.
4 lettres à la bonne position et qui se suivent mais ni au début ni à la fin. Ex: MONETIQUE donne EOEMTIQUN

Modeste geedee · 8 Juillet 2013

Re : Créer un jeu pour l'été VBA

Bonsour®

C@thy à dit:
voici le vrai exemple,
le but n'est pas de faire exactement le même, mais de pouvoir imprimer plusieurs énigmes sur une feuille pour emmener la feuille en ouacances
oili oilà.

eh bien ...
Wali, Wala, pour les Wacances
une petite mise à jour , grace à un emprunt aux formules de mapomme
avec liste imprimable 80 mots pour une page
liste différente à chaque impression

mapomme · 8 Juillet 2013

Re : Créer un jeu pour l'été VBA

Bonjour C@thy,

(...) le but n'est pas de faire exactement le même, mais de pouvoir imprimer plusieurs énigmes sur une feuille pour emmener la feuille en ouacances
oili oilà. (...)

Un essai dans le fichier joint.

Le principe:

1) On efface les précédents mots choisis (si on veut, si on ne veut pas alors on ne fait pas). Pour cela se placer sur la feuille "MesMots" et cliquer sur le bouton "RAZ".

2) Activer la feuille "Dico":

Pour sélectionner un mot, double-cliquer sur le mot dans la colonne B.
Si on double-clique sur un mot de la colonne B et si ce mot figure dans les mots précédemment sélectionnés, alors ce mot est retiré de la liste des mots sélectionnés.

3) Quand on a terminé la sélection des mots, activer la feuille "Imprim".

Dans la cellule W1, indiquer la page à imprimer (à partir de 1); ceci actualise la page à imprimer.
Imprimer la page (par défaut on n'imprime que la zone A1:O27)
Indiquer en W1 le numéro de page à imprimer, etc...

Rem 1 : il n'est pas nécéssaire de recopier vers le bas les formules de la feuille "Dico" (sauf si on désire des filtres pour choisir des mots particuliers)

Rem 2 : mes deux imprimantes ayant rendu l'âme, je n'ai pas pu vérifier le résultat sur papier.

Rem 3 : Bien qu'avec les filtres de la page "Dico", on puisse retrouver le mot source à partir des lettres des triplets, je vous conseille d'emmener aussi avec vous les solutions au cas où un mot, tel un certain village gaulois, se mettrait à faire de la résistance (car les solutions ne sont pas imprimées).

C@thy · 8 Juillet 2013

Re : Créer un jeu pour l'été VBA

Alors là, j'adooooore

Si... : très bien les 3 couleurs, joli et attrayant chez moi ça buggue un petit peu... ici :
If R.Interior.Color = K.Interior.Color Then (variable objet ou variable de bloc with non définie...) lorsque je rentre la 1ère lettre (B14), mais non bloquant, par contre il manque un message "trouvé" et le carré de 3X3 dans l'autre sens (=jaune en E orange en F et vert en G) ce serait plus mieux bien...

modeste geedee : il y a tout : la déco (superbe) le jeu à emporter en ouacances la liste complète des mots jusqu'à Z...

Mapomme, très belle performance, j'adore toutes les sophistications des nouvelles colonnes, vraiment très fun!!!

Je ne dirais qu'un mot : Bravo!

... et MERCI!!!

Bises

C@thy

C@thy · 8 Juillet 2013

Re : Créer un jeu pour l'été VBA

@ modeste geede again :

quand on a trouvé le mot il n'y a pas de message... à part ça, parfait!!!

Edit : OK, j'ai vu où c'est :

Code:

Sub affchr()
If Feuil1.[J17] = 9 Then
   chrono = False
   MsgBox "trouvé"
End If

Bizz

C@thy

Créer un jeu pour l'été VBA

C@thy

XLDnaute Barbatruc

C@thy

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

C@thy

XLDnaute Barbatruc

C@thy

XLDnaute Barbatruc

Discussions similaires