Fermer msgbox avec croix

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

 
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 :

https://forums.commentcamarche.net/forum/affich-34832298-fermer-msgbox-avec-croix#6

Cordialement
 

@gregDans 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

@cs_Le Pivert 
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 !  :)
 

Merci beaucoup pour votre aide !