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'036
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 » 10 janvier 2015, 21:55

oui, enfin presque... ;-)
    If Not Intersect(Target, Range("F18:H19")) Is Nothing Then
        If Worksheets("Questions-réponses").Cells(x, 6 + (6 * (rang - 1))) = "A" Then
            If rang = 12 Then
                Call gagné
            Else
                MsgBox ("Bien joué ! Vous passez à la question suivante !")
                rang = rang + 1
                Call tirage_question(rang)
            End If
        Else
            Call perdu
        End If
    End If
lors du test de bonne réponse sur la dernière question il faut faire le test du rang :
si rang = 12 alors c'est une bonne réponse sur la dernière question alors on lance la procédure Gagné, sinon on joue une autre question donc tirage_question

Pour la procédure gagné je vous laisse travailler un peu... :D

Comme je vous l'ai dit, je suis en train de m'approprié votre jeu ;-)
Je suis en ce moment sur la présentation... A voir si je tiendrais la distance, car souvent je baisse les bras...

@ 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 » 13 janvier 2015, 21:03

En effet vous m'avez beaucoup aidé déjà ! :D Et je vous en suis très reconnaissant ;;)

Là je planche sur le Joker 50/50 depuis plusieurs jours pour que ce soit parfait, rien de bien concluant pour le moment ... ::(
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'036
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 » 13 janvier 2015, 23:04

Bonsoir,

de mon coté je travail une présentation par arrière plan... mais ce n'est pas encore au point ;-)

@ bientôt

LouReeD
qvgdm_LouReeD_2.xlsm
(150.89 Kio) Téléchargé 27 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 » 14 janvier 2015, 19:58

Ah oui en effet c'est bien plus esthétique comme cela ! :o

Par contre comment fait-on pour démarrer une partie ? :)
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'036
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 » 14 janvier 2015, 20:34

Bonsoir,
il n'est pas exploitable pour le moment, je travail sur l'image d'arrière plan....

@ bientôt

LouReeD
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'036
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 » 14 janvier 2015, 23:10

Voilà le résultat !
Il faut cliquer sur € pour démarrer.

Les lettres des réponses ne sont plus dans le texte des réponses.

De mon coté, j'aimerais faire un onglet par rang de gain, c'est à dire 12 feuilles pour les questions.
Et sur les tableaux, je rajouterais une colonne pour signifier si la question a déjà été proposée, comme cela, partie après partie tant que toutes les question d'un rang n'ont pas été posées il n'y aurait pas de "répétition".

Reste le jocker 50/50 mais une idée se profil
pour l'avis du public, il pourrait y avoir une info au niveau de la feuille question.
l'appel à un ami, serait juste un tirage au sort entre la bonne et une des trois mauvaise réponse, donc une chance sur deux que l'ami connaisse la réponse.

@ bientôt

LouReeD
qvgdm_LouReeD_2.xlsm
(198.12 Kio) Téléchargé 36 fois
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
L
Lepierre
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 17 janvier 2015
Version d'Excel : 2003

Message par Lepierre » 17 janvier 2015, 15:21

Bonjour
C'est un sujet très intéressant.
J'ai avancé un peu avec la nouvelle présentation.
à plus
Pierre

Mon fichier dépasse les 300Ko. Utilisez ce lien pour le télécharger :
http://www.cjoint.com/15jv/EArpCH4lGDZ.htm
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message