Problème de code pour MsgBox [Résolu]

[Vincent32]

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

[jcderchain]

bonjour à toi,

voici une réponse

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Validez_Click()
Dim M As String
 
M = Masse.Value
Do While M = ""
 
    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
            Masse.Value = M
            Call vinvin
            Unload UserForm1    'action de fermeture de l'userform
       Case vbNo
          'Je ne sais pas comment lui dire retourne sur l'userform
 
          Exit Do
        Case vbCancel
            Unload UserForm1    'action de fermeture de l'userform
            Exit Do
 
 
    End Select
Loop
 
End Sub

bien à toi.

Jean Christophe