D
DENIS
Guest
Bonjour le forum
Voila j ai un UF qui lance un questionnaire (reponse en OptionButton)
Mon problm est:
J'avais fais ca comme un porc mais ca marche po (normal)
Private Sub CommandButton2_Click()
If OptionButton1.Value = True And OptionBoutton4.Value = True And OptionButton8.Value = True And OptionBoutton12.Value = True And OptionButton14.Value = True And OptionBoutton16.Value = True And OptionButton19.Value = True Then
MsgBox 'BRAVO !!! Vous avez répondu correctement à toutes les questions !!! Cliquez ''OK'' !!!'
Load UserForm6
UserForm6.Show
Else
MsgBox 'Désolé, c'est Perdu !!!'
Unload Me
ActiveWorkbook.Close
End If
End Sub
Comment faire ???
Merci
Voila j ai un UF qui lance un questionnaire (reponse en OptionButton)
Mon problm est:
J'avais fais ca comme un porc mais ca marche po (normal)
Private Sub CommandButton2_Click()
If OptionButton1.Value = True And OptionBoutton4.Value = True And OptionButton8.Value = True And OptionBoutton12.Value = True And OptionButton14.Value = True And OptionBoutton16.Value = True And OptionButton19.Value = True Then
MsgBox 'BRAVO !!! Vous avez répondu correctement à toutes les questions !!! Cliquez ''OK'' !!!'
Load UserForm6
UserForm6.Show
Else
MsgBox 'Désolé, c'est Perdu !!!'
Unload Me
ActiveWorkbook.Close
End If
End Sub
Comment faire ???
Merci