Sujet Précédent Sujet Suivant

Boutons vbOKCancel VBA

Résolu/Fermé
SOLEO Messages postés 26 Date d'inscription vendredi 30 mai 2008 Statut Membre Dernière intervention 18 juin 2010 - 17 juin 2010 à 11:50
SOLEO Messages postés 26 Date d'inscription vendredi 30 mai 2008 Statut Membre Dernière intervention 18 juin 2010 - 18 juin 2010 à 10:18
Bonjour,

Je débute en VBA .
J'ai créé un formulaire dans lequel j'ai entre autre un bouton "Annuler".
Lorsque je clique sur mon bouton "Annuler" s'ouvre une msgbox pour demander confirmation.
Cette msg box contien un bouton "ok" et un "annuler".

Mon problème est que je n'arrive pas à faire en sorte de revenir sur mon formulaire lorsque "annuler" est cliqué et de fermer mon formulaire si le bouton "ok" est cliqué.

J'avais écris cela...

Private Sub Annuler_Click()
MsgBox "Voulez-vous vraiment quitter le formulaire?", 49, "Espace Infos Agents"
If vbOk_click Then
Formentree.Hide

End If

End Sub


2 réponses

Réponse 1 / 2
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
17 juin 2010 à 12:47
Bonjour,

Il faut récupérer la réponse de l'utilisateur dans une variable: 

Private Sub Annuler_Click()
Dim rep As Long

rep = MsgBox ("Voulez-vous vraiment quitter le formulaire?", VbOkNo, "Espace Infos Agents"

If rep = VbNo Then Exit Sub

UnLoad Formentree

End Sub


;o)
8
Réponse 2 / 2
SOLEO Messages postés 26 Date d'inscription vendredi 30 mai 2008 Statut Membre Dernière intervention 18 juin 2010
18 juin 2010 à 10:18
Impec !!! ça marche... merci beaucoup... C'est vrai que c'est pas simple de débuter mais bon il faut bien un début :)

encore merci! :)
0

Discussions similaires

vba affichage msgbox
Cédric -
Utilisateur anonyme -

Bonjour,

Voulant faire une suite de msgbox avec des conditions... , quand je veux exécuter ma macro, j'ai des erreurs qui apparaissent mais je suis incapable de voir où j'ai bien pût faire mes fautes :(
peut on m'aider, voici ma macro :
Private Sub Worksheet_Activate() Cells(1, 3).Select 0 InputBox "Indiquez le N° voulu :", "AIDE", vbOKCancel, vbQuestion ' Stock If ("1") Then GoTo 1 Else ' Affichage If ("2") Then GoTo 2 Else ' Graphiques mensuel If ("3") Then Else ' Faire commande If ("4") Then GoTo 4 Else ' Liste papier ...

5 réponses
Poursuivre ou annuler une macro
arnaud74 -
pecan056 -

Bonjour,
J'ai créé au départ de ma macro une msgbox pour informer les utilisateurs que l'exécution prendra un temps conséquent.
Est-il possible de créer un bouton "Annuler" dans cette msgbox au même titre que le "OK" pour interrompre l'exécution si l'utilisateur n'a pas le temps nécessaire dispo?

Merci pour votre aide

Configuration: Windows XP / Chrome 23.0.1271.64

3 réponses