Petit cours sur le Msgbox

[youki]

Bonjour à tous,
je sais faire un msgbox simple servant simplement à écrire un message. Or je souhaiterais que en plus d'un message ma msgbox me permette l'accés à deux boutons ok et cancel (par exemple). Le ok me permettrait de lancer une macro OU de continuer dans le sub, et le cancel me permettrait d'annuler le msgbox et de ne rien executer.

Private Sub CommandButton2_Click()
MsgBox "Attention, etes vous sûr de vouloir supprimer l'intégralité du document?", vbDefaultButton1 = vbOK,...????, "Reset des données"


End Sub

Cela est il possible en msgbox ou faut il creer un userform?
D'avance merci

 

[skoobi]

Re : Petit cours sur le Msgbox

Bonjour,

ajoutes ceci:

MsgBox "Attention, etes vous sûr de vouloir supprimer l'intégralité du document?"[B][COLOR=blue],vbOKCancel[/COLOR][/B]

Regarde dans l'aide (sous VBE) pour connaitre les autres options.

 

[SergiO]

Re : Petit cours sur le Msgbox

Bonjour Youki,

Tu peux adapter cet exemple:

Private Sub CommandButton2_Click()
Message = MsgBox("Attention, etes vous sûr de vouloir supprimer l'intégralité du document?", vbOKCancel + vbQuestion, "Question")
If Message = 1 Then
'Réponse OK
Else
'Réponse Annuler
End If
End Sub

@+

 

[Eric 45]

Re : Petit cours sur le Msgbox

Bonjour à tous

En complément :

            Select Case MsgBox("Attention, suppression du document ?", vbYesNo + vbcritical + vbDefaultButton2, "Attention")
                Case vbYes: choix1
                Case vbNo: choix2
            End Select

Eric

PS : Bonjour Sergio

 

[BERRACHED said]

Re : Petit cours sur le Msgbox

Bonjour,youki,skobi,sergio,eric45

un p'tis + de ce cote la :

VBA : -- CATHY ASTUCE --

Cordialement

 

[youki]

Re : Petit cours sur le Msgbox

Merci à tous, c'est bien enregistré et cela fonctionne.

 

[myDearFriend!]

Re : Petit cours sur le Msgbox

Bonsoir le fil, le Forum,

Je me permets d'ajouter un autre p'tit +, de ce côté là :
Utilisation des MsgBox

Que je complète par un autre, moins destiné aux débutants toutefois :
MsgBox avec bouton personnalisés


Cordialement,

 

[skoobi]

Re : Petit cours sur le Msgbox

Bonjour tout le monde,
(N'apporte rien à la discussion)
Didier, sympa le relooking de ton site 😉😎.
Bonne journée.