Problème de code pour MsgBox
Bonjour à tous,
J'ai crée un userform avec des textbox. Le code si après dit :
Si le champ M est vide alors message d'erreur avec trois choix possible :
Si oui => alors M=20
Si non => je veux retourner sur mon userform pour que l'on puisse rentrer une valeur dans le champ M
Si annuler => je veux sortir de la macro
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub Valider_Click()
M = Masse.Value
If M = "" Then
Select Case MsgBox("Masse de la pastille avant expérience non renseignée." & Chr(10) & "Prendre masse par défaut : M = 20 mg ?", vbYesNoCancel + vbCritical, "Erreur : Masse pastille manquante !")
Case vbYes
M = 20
Case vbNo
'Je ne sais pas comment lui dire retourne sur l'userform
Case vbCancel
'Je ne sais pas comment lui dire sort de l'userform et n'appelle pas la macro Vinvin
End Select
End If
'Importation des données entrées dans l'userform pour la macro
Call Vinvin 'Appelle macro
Unload UserForm1 'action de fermeture de l'userform
End Sub |