VBA: Fermeture d'une msgbox mais le userform reste affiché
Résolu
anton26
Messages postés
33
Statut
Membre
-
anton26 Messages postés 33 Statut Membre -
anton26 Messages postés 33 Statut Membre -
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
A voir également:
- VBA: Fermeture d'une msgbox mais le userform reste affiché
- Excel compter cellule couleur sans vba - Guide
- Dépassement de capacité vba ✓ - Forum Excel
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
1 réponse
Bonjour,
En gros, si on clique sur ok il ne se passe rien...
Donc ne mets rien à la place de tes ???
ou plus propre
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 propre
If Reponse = vbCancel Then Unload UserForm1 demarrage.Show End If
Existerait-il quelque chose qui me permettrait de conserver ouvert mon userform1 ?
Merci
Merci pour ton aide pijaku et bonnes fêtes