Signaler

Fermer msgbox avec croix [Résolu]

Posez votre question peybernes 41Messages postés jeudi 12 janvier 2017Date d'inscription 8 septembre 2017 Dernière intervention - Dernière réponse le 7 sept. 2017 à 17:12 par peybernes
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
Utile
+1
plus moins
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
 
Donnez votre avis
Utile
+1
plus moins
Bonjour,

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

http://www.commentcamarche.net/forum/affich-34385164-quitter-une-macro-avec-la-croix-rouge
greg- 30 août 2017 à 17:45
 
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
 
Répondre
cs_Le Pivert 4569Messages postés jeudi 13 septembre 2007Date d'inscription ContributeurStatut 18 septembre 2017 Dernière intervention - 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
Répondre
greg- 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 !  :)
 
Répondre
peybernes 41Messages postés jeudi 12 janvier 2017Date d'inscription 8 septembre 2017 Dernière intervention - 7 sept. 2017 à 17:12
Merci beaucoup pour votre aide !
Répondre
Donnez votre avis
Utile
+0
plus moins
Bonjour,

j'appelle une boite dialogue
Quelle boite, dans le titre vous ecrivez msgbox ?????
peybernes 41Messages postés jeudi 12 janvier 2017Date d'inscription 8 septembre 2017 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
Répondre
Donnez votre avis
Utile
+0
plus moins
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 ?????
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !