Remettre à 0 mes questions du quizz

Bonsoir tout le monde!

Je vais vous expliquer mon problème (je n'ai pas trouvé sur votre forum...), je dois réaliser un Quizz pour un projet informatique et j'ai un problème quant à la remise à zéro de mon algorithme à question, je m'explique :

Voici les étapes :

  • Le joueur lance le Quizz
  • La 1ere question s'affiche avec les choix de réponses
  • Il répond à la question normalement, une msgbox s'affiche en lui disant vrai/faux (si c'est faux la correction est fournie)
  • Il appui sur le bouton suivant
  • La 2ème question s'affiche avec les choix de réponses
Ainsi de suite

Dans la fenêtre de mes questions j'ai fais un bouton retour et le bouton suivant pour passer à la question suivante.

Si le joueur retourne au menu et relance le quizz, la question qui s'affiche et celle ou il était en appuyant sur le bouton "Retour au menu". Cependant la msgbox ou il y a la correction retourne à la question 1,

En gros il quitte à la question 3 et il revient :

  • Le joueur reprendra à la Q3
  • Mais la correction sera celle de la Q1

Et je n'arrive pas à réinitialiser tout ça soit, retour Q1 avec correction Q1

Merci de votre réponse,

Téo

PS : Je vous envoie les lignes de codes (mon fichier est trop lourd pour le poster je suis désolé....)

Private Sub Question_Click()

End Sub

Private Sub retour_Click() 'Permet de retourner au menu'

QuitterMenu.Show

End Sub

Private Sub Userform_Initialize()

score = 0

i = 4

Sheets("Base_de_donnees").Select 'Changer les questions et les réponses à chaque click sur le bouton suivant'

Question.Caption = Cells(i, 5)

reponse1.Caption = Cells(i, 6)

reponse2.Caption = Cells(i, 8)

reponse3.Caption = Cells(i, 10)

reponse4.Caption = Cells(i, 12)

End Sub

Private Sub Suivante_Click()

Sheets("Base_de_donnees").Select

If reponse1 = True Then

If reponse1.Caption = Cells(i, 13) Then 'Si R1 est Vrai/Faux cela affiche une MsgBox en comptant le score'

score = score + 1

MsgBox ("Bonne réponse!")

Else: MsgBox ("Mauvaise réponse! La réponse était: " & Cells(i, 13).Value)

End If

ElseIf reponse2 = True Then

If reponse2.Caption = Cells(i, 13) Then 'Si R2 est Vrai/Faux cela affiche une MsgBox en comptant le score'

score = score + 1

MsgBox ("Bonne réponse!")

Else: MsgBox ("Mauvaise réponse! La réponse était: " & Cells(i, 13).Value)

End If

ElseIf reponse3 = True Then

If reponse3.Caption = Cells(i, 13) Then 'Si R3 est Vrai/Faux cela affiche une MsgBox en comptant le score'

score = score + 1

MsgBox ("Bonne réponse!")

Else: MsgBox ("Mauvaise réponse! La réponse était: " & Cells(i, 13).Value)

End If

ElseIf reponse4 = True Then

If reponse4.Caption = Cells(i, 13) Then 'Si R4 est Vrai/Faux cela affiche une MsgBox en comptant le score'

score = score + 1

MsgBox ("Bonne réponse!")

Else: MsgBox ("Mauvaise réponse! La réponse était: " & Cells(i, 13).Value)

End If

Else: MsgBox ("Vous devez choisir une réponse")

End If

If reponse1 = True Or reponse2 = True Or reponse3 = True Or reponse4 = True Then 'Après vérification des réponses passage à la question suivante'

i = i + 1

Sheets("Base_de_donnees").Select

Question.Caption = Cells(i, 5)

reponse1.Caption = Cells(i, 6)

reponse2.Caption = Cells(i, 8)

reponse3.Caption = Cells(i, 10)

reponse4.Caption = Cells(i, 12)

reponse1 = False

reponse2 = False

reponse3 = False

reponse4 = False

End If

If Question.Caption = "Arrêt" Then

MsgBox ("Vous avez terminé le quizz! Votre score est " & score & "/20") 'Affiche le score et un petit commentaire sur le niveau du joueur'

If score <= 6 Then

MsgBox ("C'est largement insuffisant!")

ElseIf 6 < score <= 12 Then

MsgBox ("Tu as quelques connaissances sur le golf, c'est bien!")

ElseIf 12 < score <= 16 Then

MsgBox ("Tu connais bien le golf, vraiment pas mal!")

ElseIf 16 < score <= 20 Then

MsgBox ("Tu as surement du gagner un Open (ou pas)!")

End If

End If

End Sub

Bonsoir,

Comme dirait un certain Bond , essayer de mettre le fichier structure en pièce jointe.

Il vous suffit peut-être d'en faire une copie et de ne laisser sur celle ci que trois questions sur votre base de données.

@ bientôt

LouReeD

Après avoir bataillé j'ai enfin trouvé!

Je te remercie!

Et bien bravo à vous et tout ceci sans fichier joint

@ bientôt

LouReeD

Rechercher des sujets similaires à "remettre mes questions quizz"