James,
Merci pour ta réactivité! Lorsque que j'intègre ton code dans mes formules vba, plus aucune macro ne fonctionne:
Public numberCorrect As Integer
Public numberFaux As Integer
Dim UserName As String
Dim numberCorrect As Integer
Dim numberWrong As Integer
Sub RenseignerNom()
UserName = InputBox(Prompt:="Taper votre nom et prénom suivi de votre service")
MsgBox " Bienvenue au Quizz du Service Crédit " + UserName, vbApplicationModal, " Sample Quiz"
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub Correct()
MsgBox " Bonne réponse " + UserName, vbApplicationModal, " Quizz Service Crédit"
numberCorrect = numberCorrect + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub Faux()
MsgBox " Mauvaise réponse " + UserName, vbApplicationModal, " Quizz Service Crédit"
numberFaux = numberFaux + 1
With ActivePresentation.SlideShowWindow
.View.GotoSlide (ActivePresentation.SlideShowWindow.View.Slide.SlideIndex + 2)
End With
End Sub
Sub Commencer()
numberCorrect = 0
numberFaux = 0
RenseignerNom
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub Resultats()
MsgBox (" Vous avez " & numberCorrect & " bonnes réponses, " & numberFaux & " mauvaises réponses, " & UserName), vbApplicationModal, " Quizz Service Crédit"
End Sub
Sub ShowAnswers()
Dim AnsList As String
AnsList = "The answers are as follows:" & vbCrLf
For X = 0 To NOOFQS - 1
AnsList = AnsList & Qs(X) & vbTab & " Answer:" & Choices(X, Ans(X)) & vbCrLf
Next X
MsgBox AnsList, vbOKOnly, "Correct answers"
End Sub
Ai-je bien intégré ton code?
Flora