VBA: Fermeture d'une msgbox mais le userform reste affiché
Résolu
Bonjour,
J'ai créé un userform1 avec des textbox à remplir. Ensuite, il faut cliquer sur un bouton valider. A cet instant un msgbox s'ouvre avec un bouton ok et un bouton annuler. Je souhaiterai que si l'on clique sur ok la msgbox se ferme mais que la userform1 reste ouverte. Au contraire si on clique sur annuler, la userform1 se ferme et la userform demarrage s'ouvre.
Pour le bouton Annuler ca fonctionne, mais pour le bouton ok je ne vois pas comment coder le fait de fermer la msg box mais de garde le userform.
Voila ce que ca donnne. C'est pour la partie en gras que j'aurais besoin d'aide.
Merci
Reponse = MsgBox("Merci de compléter chaque case blanche." & Chr(10) & Chr(10) & "Pour complèter votre liste cliquez sur OK." & Chr(10) & "Pour revenir a la page d'accueil cliquez sur Annuler.", vbExclamation + vbOKCancel, "Erreur")
If Reponse = vbOK Then 'Si on clique sur OK
???????
Else 'Si on clique sur annuler
Unload UserForm1
demarrage.Show
End If
J'ai créé un userform1 avec des textbox à remplir. Ensuite, il faut cliquer sur un bouton valider. A cet instant un msgbox s'ouvre avec un bouton ok et un bouton annuler. Je souhaiterai que si l'on clique sur ok la msgbox se ferme mais que la userform1 reste ouverte. Au contraire si on clique sur annuler, la userform1 se ferme et la userform demarrage s'ouvre.
Pour le bouton Annuler ca fonctionne, mais pour le bouton ok je ne vois pas comment coder le fait de fermer la msg box mais de garde le userform.
Voila ce que ca donnne. C'est pour la partie en gras que j'aurais besoin d'aide.
Merci
Reponse = MsgBox("Merci de compléter chaque case blanche." & Chr(10) & Chr(10) & "Pour complèter votre liste cliquez sur OK." & Chr(10) & "Pour revenir a la page d'accueil cliquez sur Annuler.", vbExclamation + vbOKCancel, "Erreur")
If Reponse = vbOK Then 'Si on clique sur OK
???????
Else 'Si on clique sur annuler
Unload UserForm1
demarrage.Show
End If
1 réponse
-
ModérateurBonjour,
En gros, si on clique sur ok il ne se passe rien...
Donc ne mets rien à la place de tes ???
Reponse = MsgBox("Merci de compléter chaque case blanche." & Chr(10) & Chr(10) & "Pour complèter votre liste cliquez sur OK." & Chr(10) & "Pour revenir a la page d'accueil cliquez sur Annuler.", vbExclamation + vbOKCancel, "Erreur") If Reponse = vbOK Then 'Si on clique sur OK Else 'Si on clique sur annuler Unload UserForm1 demarrage.Show End If
ou plus propreIf Reponse = vbCancel Then Unload UserForm1 demarrage.Show End If
