Dim Reponse As VbMsgBoxResult Do If MsgBox("Salut, clique sur Oui ou Non", vbYesNo) = vbYes Then MsgBox "Tu as cliqué sur Oui" Else MsgBox "Tu as cliqué sur Non" Reponse = MsgBox("Veux-tu refaire le test ?", vbYesNo) Loop While Reponse=VbYes
Dim Recommencer As Boolean Do If MsgBox("Salut, clique sur Oui ou Non", vbYesNo) = vbYes Then MsgBox "Tu as cliqué sur Oui" Else MsgBox "Tu as cliqué sur Non" If MsgBox("Veux-tu refaire le test ?", vbYesNo) vbNo Then Recommencer False Loop While Recommencer = True
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim Recommencer Do If MsgBox("Salut, clique sur Oui ou Non", vbYesNo) = vbYes Then MsgBox "Tu as cliqué sur Oui" Else MsgBox "Tu as cliqué sur Non" If MsgBox("Veux-tu refaire le test ?", vbYesNo) vbNo Then Recommencer False Else Recommencer = True Loop While Recommencer = True