Choix dans boite de dialogue
Résolu
kumpb
Messages postés
78
Statut
Membre
-
kumpb Messages postés 78 Statut Membre -
kumpb Messages postés 78 Statut Membre -
Bonjour,
dans une userform j'ai mis un bouton qui provoque la sortie immediate.
J'ai inclus dans la sortie une validation avant de sortir, voici ci dessous ma programmation actuelle
Private Sub Cmdaceuil_Click()
Application.ScreenUpdating = False 'Retour a l'acceuil
MsgBox "SORTIR SANS SAUVEGARDE ?", vbExclamation
Unload UserForm3
End Sub
Je voudrai avoir lors de l'affichage du message un choix de validation, par exemple " SORTIR SANS SAUVEGARDE?".....OUI ou NON
avec OUI pour sortie et NON pour rester a la userform, et je ne sais pas comment faire.
Merci d'avance pour vos conseils
dans une userform j'ai mis un bouton qui provoque la sortie immediate.
J'ai inclus dans la sortie une validation avant de sortir, voici ci dessous ma programmation actuelle
Private Sub Cmdaceuil_Click()
Application.ScreenUpdating = False 'Retour a l'acceuil
MsgBox "SORTIR SANS SAUVEGARDE ?", vbExclamation
Unload UserForm3
End Sub
Je voudrai avoir lors de l'affichage du message un choix de validation, par exemple " SORTIR SANS SAUVEGARDE?".....OUI ou NON
avec OUI pour sortie et NON pour rester a la userform, et je ne sais pas comment faire.
Merci d'avance pour vos conseils
Configuration: Windows XP Internet Explorer 6.0
5 réponses
-
La fonction MessageBox doit te retourner une valeur précise en retour quand tu tape sur un des deux boutons.
(2 pour oui et 7 pour non il me semble)
Pour tester la valeur en retour, place une fonction permettant de lire cette valeur juste à la suite de msb.
Je peux pas t'aider plus que ça, je programme en Assembleur pas en VB.
-
merci pour ta réponse.
dans un premier temps j'aimerai savoir comment faire apparaître les commandes OUI et NON lors de l'affichage du message "SORTIE SANS VALIDATION?"
et ensuite comment traiter les valeurs dont tu me parles -
Bonjour,
La fonction msgbox peut retourner une valeur qui indique quel bouton a été appuyé, pour une explication complète, voir l'aide. Voici comment l'utiliser dans ton cas:
Private Sub Cmdaceuil_Click()
dim reponse as Integer
Application.ScreenUpdating = False 'Retour a l'acceuil
reponse = MsgBox("SORTIR SANS SAUVEGARDE ?", vbExclamation + vbYesNo)
If repnse = vbYes Then Unload UserForm3
End Sub
A+ -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
super....... merci beaucoup pour ta reponse.... grace a toi mon problème est résolu
tu as assuré un max ...bravo
bonne journée a tous
