JEU - Qui veut gagner des millions ?

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'040
Appréciations reçues : 265
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 7 janvier 2015, 21:59

Une petite erreur dans le test !
ce n'est pas >= à 7 ou >=2
>7 et >2 en effet faut valider le palier pour le gagner donc être au rang supérieur ! :D

Ci-joint le fichier

@ bientôt

LouReeD
qvgdm_LouReeD.xlsm
(39.06 Kio) Téléchargé 32 fois
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
T
Themountain
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 6 janvier 2015
Version d'Excel : 2013 FR

Message par Themountain » 8 janvier 2015, 12:13

Merci c'est très gentil de passer autant de temps à m'aider :wink:

Donc finalement, à part pour le changement de couleur, toute cette partie du code peut remplacer le code déjà contenu dans la feuille si je comprends bien ?
Je vois à peu près comment fonctionne la variable rang, il faudrait ajouter un "Else" avec une conséquence Msgbox ("Vous avez perdu !") si on perd à 800€, mais une Msgbox ("Vous avez perdu ! Mais vous avez quand même gagné 1 500€ !") ou 48 000€ c'est bien cela ?
Et, en plus, proposer au candidat de recommencer !

Pour le rang 12, une simple Msgbox("Vous avez gagné 1 000 000€, félicitations vous êtes millionaire !") suffirait non ? :)
Un genre de :
If rang=12 then
Msgbox("Vous avez gagné 1 000 000€, félicitations vous êtes millionaire !")

Ah, autant pour moi je n'avais pas vu votre message sur la 2ème page ! ::o
En effet, cela fonctionne très bien :)
Par contre il semblerait que les questions ne soient plus choisies aléatoirement ::~
Le top serait aussi d'ajouter une fonction Joker 50/50 qui permettrait au joueur de supprimer 2 mauvaises réponses, et utilisable une seule fois. Mais là, je ne sais pas du tout comment m'y prendre ...
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'040
Appréciations reçues : 265
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 8 janvier 2015, 18:44

Oui reste le 50/50 heu ? bonsoir ! :D

Le super top serait de "cocher" les question déjà posées afin que d'une partie à l'autre elles ne se répètent pas, et seulement une fois toutes les questions d'un niveau posé, une init de ces coche serait fait pour repartir avec la batterie complète non ?

@ bientôt

LouReeD
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
T
Themountain
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 6 janvier 2015
Version d'Excel : 2013 FR

Message par Themountain » 8 janvier 2015, 19:53

Oui bonsoir du coup :D

Mmmmh je pense que le plus important ce serait de refaire marcher les questions aléatoires :P Mais je ne vois pas d'où peut venir le problème, c'est peut-être car il n'y a plus la fonction rnd ? ::~
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'040
Appréciations reçues : 265
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 8 janvier 2015, 21:16

Si si il y est dans module un "tirage_question"
Et si vous testez votre application de départ vous verrez que la suite des questions à chaque ouverture du était déjà la même !
Sub tirage_question(rang)

If rang = 1 Then
    ActiveSheet.Cells(26 - (2 * rang), 15).Interior.ColorIndex = 12 ' couleur niveau actif
Else
    ActiveSheet.Cells(26 - (2 * rang), 15).Interior.ColorIndex = 12 ' couleur niveau actif
    ActiveSheet.Cells(26 - (2 * (rang - 1)), 15).Interior.ColorIndex = 1 ' couleur en fond noir niveau précédent
End If
Randomize ' à ajouter afin d'avoir réellement une suite aléatoire...
x = Int(Rnd * 9 + 1)
Range("F14") = Worksheets("Questions-réponses").Cells(x, 1 + (6 * (rang - 1)))
Range("F18") = Worksheets("Questions-réponses").Cells(x, 2 + (6 * (rang - 1)))
Range("K18") = Worksheets("Questions-réponses").Cells(x, 3 + (6 * (rang - 1)))
Range("F22") = Worksheets("Questions-réponses").Cells(x, 4 + (6 * (rang - 1)))
Range("K22") = Worksheets("Questions-réponses").Cells(x, 5 + (6 * (rang - 1)))
        
End Sub
Mais je crois que "informatiquement" RND sort une liste aléatoire, mais celle-ci est "constante" !!!
c'est à dire qu'à chaque ouverture du fichier, RND donnera la même suite numérique, qui du coup ne parait plus aléatoire...
puisque Rnd prendra en référence une constante "matériel"
Donc avant RND il faut utiliser la fonction Randomize afin d'avoir une référence de Rnd différente à chaque utilisation !

Fichier-joint

@ bientôt

LouReeD
qvgdm_LouReeD.xlsm
(39.17 Kio) Téléchargé 33 fois
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
T
Themountain
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 6 janvier 2015
Version d'Excel : 2013 FR

Message par Themountain » 8 janvier 2015, 22:56

Merci de vous impliquer autant dans mon projet :)

En effet ça fonctionne beaucoup mieux désormais ! La question 1 ne commence plus non plus par la même question :P
Bon eh bien, le jeu commence à ressembler à quelque chose merci beaucoup ! :D
Je vais essayer de faire une macro pour féliciter le gagnant s'il va jusqu'à 1 000 000€, puis pourquoi pas le fameux 50/50.
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'040
Appréciations reçues : 265
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 9 janvier 2015, 01:43

Le 50/50 je le vois avec un randomize + rnd sur quatre valeur
puis test que la valeur ne soit pas la bonne réponse, sinon on recommence, puis un deuxième randomize rnd sur quatre valeur puis test que ce n'est ni la bonne réponse ni la réponse déjà retirée... puis ensuite effacement des réponses concernées, tout cela sur un clic bouton, bouton qui disparaît une fois le 50/50 effectué.
A faire réapparaitre lors du clic "commencer la partie"

@ bientôt

LouReeD
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
T
Themountain
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 6 janvier 2015
Version d'Excel : 2013 FR

Message par Themountain » 9 janvier 2015, 06:57

Ah d'accord ! Et donc il faudrait que j'utilise plutôt une fonction suppr qui supprimerai les mauvaises réponses ou bien une fonction couleur qui surlignerai en noir le texte des 2 mauvaises réponses ? :)

Merci beaucoup ! ::D
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'040
Appréciations reçues : 265
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 9 janvier 2015, 23:53

Après c'est vous qui choisissez ! ::D
C'est votre projet, je vais certainement me "l'approprier" ... :mrgreen:

J'aime bien si si :D

@ bientôt

LouReeD
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
T
Themountain
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 6 janvier 2015
Version d'Excel : 2013 FR

Message par Themountain » 10 janvier 2015, 17:51

Je pense que je vais opter pour la fonction qui change de couleur :)
Pour afficher un message "Bravo vous êtes millionnaire !", j'utilise la même fonction que pour la fonction perdre ?
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message