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