JEU - Qui veut gagner des millions ?

Y compris Power BI, Power Query et toute autre question en lien avec Excel
T
Themountain
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 6 janvier 2015
Version d'Excel : 2013 FR

Message par Themountain » 6 janvier 2015, 20:03

Bonsoir ! :D

Pour les cours de programmation, je dois développer un jeu au choix en VBA. J'ai choisi de créer le jeu "Qui veut gagner des millions ?", jusqu'ici tout marche ! J'ai réussi à faire apparaître les questions et les réponses où je veux ...

Cependant, les choses se corsent par la suite ... Je ne sais pas comment faire ces 3 choses :( :

-Dans la pyramide des gains, surligner la case pour savoir à quel niveau (ou à quelle question) on se trouve
-Faire en sorte que lorsque l'on donne une mauvaise réponse, on redescende au palier d'en dessous (en orange sur la pyramide des gains) avec un message qui affiche "Ce n'est pas grave, vous repartez tout de même avec la somme de xxxxx euros !"
-Créer le joker qui enlève 2 mauvaises réponses et qui n'est utilisable qu'une seule fois

Je vous ai mis des screens de ce que j'ai déjà fait ci-dessous :
Image

Et une copie du code que j'ai effectué jusqu'à maintenant, qui permet de faire apparaître les questions dans le bon ordre et avec les boutons A, B, C et D :
Image

Si vous pourriez m'aider, ce serait gentil ! :P
Merci beaucoup à ceux qui répondront à mon message ::D

Il semblerait que les images ne fonctionnent pas ! Voici les liens vers les 2 images :)
http://hpics.li/4380895
http://hpics.li/c0d0b06
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'152
Appréciations reçues : 273
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 6 janvier 2015, 22:27

Bonsoir,

les photos c'est bien ! :D
mais il est dur de travailler le code !!! :lol:

Le fichier joint serait la bienvenue, non ?

@ bientôt

LouReeD
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 » 6 janvier 2015, 22:35

Tout d'abord merci de m'avoir répondu, et voici le fichier ! :)
Il dépassait 300ko, je l'ai donc placé sur un hébergeur ;)

http://www.partage-facile.com/BE1FQ8W68 ... .xlsm.html
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'152
Appréciations reçues : 273
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 6 janvier 2015, 23:58

Bonsoir,

je me suis permis quelque modif...

Le niveau en fonction de la question fonctionne,
Les boutons réponses ont disparus... il suffit de cliquer sur la bonne réponse
La gestion des erreur n'est pas faite
donc l'affichage des gains gagnés n'est pas fait
Par soucis de taille j'ai supprimé quelques photos...
Ceci dit si c'est un exercice ne copiez pas trop, mais essayez de comprendre ;-)

@ bientôt

LouReeD
qvgdm_LouReeD.xlsm
(39.22 Kio) Téléchargé 87 fois
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 » 7 janvier 2015, 08:23

Merci beaucoup de m'aider :wink:

Effectivement, c'est beaucoup plus épuré sans les boutons, merci :D

J'aimerais que le programme affiche "Perdu ! Vous avez gagné xxxx euros" si la personne redescend au palier orange (1 500€ ou 48 000€). Ou, si elle perd à 800€, qu'il y ait marqué "Perdu !" tout court.
Je pensais utiliser une Msgbox mais je me rends compte que ça ne suffirait pas. Comment puis-je faire ? :o
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'152
Appréciations reçues : 273
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 7 janvier 2015, 19:01

Bonsoir,

Je cherche dans les petits espace de temps libre qu'il me reste en fin de journée... ;-)
Ceci dit j'aime bien votre jeu !
Mais la fonction randomize est à revoir ou modifier car j'ai l'impression que les questions de la première partie (ouverture du fichier) sont les mêmes... A voir

@ bientôt

LouReeD
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 » 7 janvier 2015, 21:12

D'accord, je cherche de mon côté mais pour l'instant je ne trouve pas le moyen de faire comprendre au programme que je veux qu'il retourne à la somme du palier orange (1500€ ou 48 000€) si le joueur répond mal à une question au dessus de ces mêmes paliers ! :(

Merci de m'aider en tout cas :)
Oui je pense aussi que c'est un bon sujet comme jeu ! :)
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'152
Appréciations reçues : 273
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:22

Une idée : j'ai créé une variable rang...
si perdu et :
si rang > ou égal à 7 alors 48 000
ou si rang > ou égal à 2 alors 1 500
alors perdu
si gagne alors 1 000 000 !!!! :clap:

@ bientôt

LouReeD
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 » 7 janvier 2015, 21:27

Ah oui je comprends l'idée ! Comment cette variable fonctionne t-elle au juste ? :)
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'152
Appréciations reçues : 273
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:39

Voilà le code rattaché à la feuille sur une procédure de surveillance événementielle qui nous détecte le clic sur les cellules réponses :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("F18:H19,K18:M19,F22:H23,K22:M23")) Is Nothing Then

    If Not Intersect(Target, Range("F18:H19")) Is Nothing Then
        If Worksheets("Questions-réponses").Cells(x, 6 + (6 * (rang - 1))) = "A" Then
        MsgBox ("Bien joué ! Vous passez à la question suivante !")
        rang = rang + 1
        Call tirage_question(rang)
        End If
    End If
    If Not Intersect(Target, Range("K18:M19")) Is Nothing Then
        If Worksheets("Questions-réponses").Cells(x, 6 + (6 * (rang - 1))) = "B" Then
        MsgBox ("Bien joué ! Vous passez à la question suivante !")
        rang = rang + 1
        Call tirage_question(rang)
        End If
    End If
    If Not Intersect(Target, Range("F22:H23")) Is Nothing Then
        If Worksheets("Questions-réponses").Cells(x, 6 + (6 * (rang - 1))) = "C" Then
        MsgBox ("Bien joué ! Vous passez à la question suivante !")
        rang = rang + 1
        Call tirage_question(rang)
        End If
    End If
    If Not Intersect(Target, Range("K22:M23")) Is Nothing Then
        If Worksheets("Questions-réponses").Cells(x, 6 + (6 * (rang - 1))) = "D" Then
        MsgBox ("Bien joué ! Vous passez à la question suivante !")
        rang = rang + 1
        Call tirage_question(rang)
        End If
    End If
End If
ActiveSheet.Cells(1, 1).Activate
Application.EnableEvents = True
End Sub
A chaque bonne réponse la variable rang est incrémentée de 1
cette partie de code est à modifier car seul les bonnes réponses sont gérées :
 If Worksheets("Questions-réponses").Cells(x, 6 + (6 * (rang - 1))) = "C" Then
ici pour la bonne réponse C.

il reste à gérer le rang 12 avec bonne réponse (1 000 000)
ActiveSheet.Cells(1, 1).Activate
cette ligne permet "de sortir" des cellule de réponse afin de détecter le changement de sélection et vérifier si c'est une des quatre cellule de réponse.

Pour voir le code, un clic droit sur le nom de l'onglet 'Jeu"
puis "visualiser le code" et vous tomber dessus...

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message