JEU - Qui veut gagner des millions ?

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...

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

En effet vous m'avez beaucoup aidé déjà ! 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 ...

Bonsoir,

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

@ bientôt

LouReeD

47qvgdm-loureed-2.xlsm (150.89 Ko)

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

Par contre comment fait-on pour démarrer une partie ?

Bonsoir,

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

@ bientôt

LouReeD

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

68qvgdm-loureed-2.xlsm (198.12 Ko)

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

Rechercher des sujets similaires à "jeu qui veut gagner millions"