Fermer msgbox avec croix [Résolu]

peybernes 49 Messages postés jeudi 12 janvier 2017Date d'inscription 5 janvier 2018 Dernière intervention - 30 août 2017 à 16:32 - Dernière réponse : peybernes 49 Messages postés jeudi 12 janvier 2017Date d'inscription 5 janvier 2018 Dernière intervention
- 7 sept. 2017 à 17:12
Bonjour à tous,

J'ai un problème sur Excel ; à l'aide d'une macro, j'appelle une boite dialogue et je souhaiterais, par le simple appui de la croix en haut à droite, fermer ma fenêtre et donc quitter la macro.

Merci pour votre aide

Peybernes
Afficher la suite 

9 réponses

Répondre au sujet
+1
Utile
Bonjour Peybernes,

Je te propose ce code VBA :


If MsgBox("Êtes-vous sûr de vouloir supprimer les saisies ?", vbYesNo, _
"Demande de confirmation") = vbYes Then
  [A1:D10].ClearContents: Exit Sub
End If


Cordialement
 
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de greg
cs_Le Pivert 4831 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 20 janvier 2018 Dernière intervention - 30 août 2017 à 17:35
+1
Utile
4
Bonjour,

il a déjà eu la réponse ici:

http://www.commentcamarche.net/forum/affich-34385164-quitter-une-macro-avec-la-croix-rouge
Cette réponse vous a-t-elle aidé ?  
 
Bonjour, cs_Le Pivert,

J'ai suivi ton lien ; c'est bien une conversation similaire, mais :

a) La boîte de dialogue affiche une autre question

b) Les boutons sont : vbYesNoCancel + vbCritical + vbDefaultButton2
    alors qu'ici, c'est simplement : vbYesNo

c) La partie de code ci-dessous ne contient pas Exit Sub :


    Else
        'Traitement de la réponse ANNULER ou fermeture par la CROIX
    End If


C'est pourquoi ma réponse de 17:35 reste valable :

http://www.commentcamarche.net/forum/affich-34832298-fermer-msgbox-avec-croix#6

Cordialement
 
cs_Le Pivert 4831 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 20 janvier 2018 Dernière intervention > greg - 30 août 2017 à 18:03
Dans ta MsgBox la croix de fermeture est masquée!
Alors que dans le lien que j'ai indiqué elle est présente

D'où le titre de ce post:

Fermer msgbox avec croix

Cdlt
greg > cs_Le Pivert 4831 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 20 janvier 2018 Dernière intervention - 30 août 2017 à 19:41
 
Ah oui, tu as raison ! j'avais pas vu que la croix est non cliquable ;
pour qu'elle soit cliquable, il faut remplacer dans mon précédent
code VBA : vbYesNo par vbYesNoCancel ; ce qui donne :


Sub Essai()
  If MsgBox("Êtes-vous sûr de vouloir supprimer les saisies ?", _
  vbYesNoCancel, "Demande de confirmation") = vbYes Then
    [A1:D10].ClearContents: Exit Sub
  End If
End Sub


Merci pour tes infos !  :)
 
peybernes 49 Messages postés jeudi 12 janvier 2017Date d'inscription 5 janvier 2018 Dernière intervention - 7 sept. 2017 à 17:12
Merci beaucoup pour votre aide !
Commenter la réponse de cs_Le Pivert
f894009 12599 Messages postés dimanche 25 novembre 2007Date d'inscription 21 janvier 2018 Dernière intervention - Modifié par f894009 le 30/08/2017 à 16:58
0
Utile
1
Bonjour,

j'appelle une boite dialogue
Quelle boite, dans le titre vous ecrivez msgbox ?????
peybernes 49 Messages postés jeudi 12 janvier 2017Date d'inscription 5 janvier 2018 Dernière intervention - 30 août 2017 à 17:10
Bonjour !

Ma macro est la suivante :

"If MsgBox("Êtes-vous sûr de vouloir supprimer les saisies?", vbYesNo, _"Demande de confirmation") = vbYes Then
Range("A1:D10").Select
Selection.ClearContents "

Je voudrais donc pouvoir fermer la fenêtre qui s'affiche lorsque je lance ma macro grâce à la croix.

Avez-vous une idée ?

Merci
Commenter la réponse de f894009
f894009 12599 Messages postés dimanche 25 novembre 2007Date d'inscription 21 janvier 2018 Dernière intervention - 30 août 2017 à 17:27
0
Utile
Re,

Je voudrais donc pouvoir fermer la fenêtre qui s'affiche lorsque je lance ma macro grâce à la croix.

Quelle fenetre et quelle croix, car msgbox yesno pas de croix de fermeture ?????
Commenter la réponse de f894009