Gérer un MsgBox

Bonjour ,

Je voudrais savoir si il est possible de gérer un MsgBox?
C'est-à-dire que si je clique sur Ok ,mes tableaux s'effacent et si je clique sur la petite croix ca ne les effaces pas

Code:

---

1 2 3 4 5 6

Private Sub RESET_Click() MsgBox ("Etes-vous sur de vouloir effacer le contenu des tableaux???")   Sheets("Main").Range("C7:C16").ClearContents   End Sub

---

Merci:D

Bonjour,

comme ça cela devrait marcher

Code:

---

1 2 3 4 5 6

Private Sub RESET_Click() temp = MsgBox("Etes-vous sur de vouloir effacer le contenu des tableaux???", vbOKCancel) If temp = 1 Then Sheets("Main").Range("C7:C16").ClearContents End If End Sub

---

oui oui ca doit etre possible!

aide de excel (VB):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "Souhaitez-vous continuer?" ' Définit le message. Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons. Title = "Démonstration de MsgBox " ' Définit le titre. Help = "DEMO.HLP" ' Définit le fichier d'aide. Ctxt = 1000 ' Définit le contexte de ' la rubrique. ' Affiche le message. Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then ' L'utilisateur a choisi Oui. MyString = "Oui" ' Effectue une action. Else ' L'utilisateur a choisi Non. MyString = "Non" ' Effectue une action. End If

---

toujours dans l'aide tu cherche : MsgBox, fonction
tu trouvera toute les variables a connaitre pour faire de ta msgbox la boite de dialogue que tu veux!
pour ton probleme j'opterais pour :
vbOKCancel value=1 Affiche les boutons OK et Annuler.
donc:

Code:

---

1 2	msgbox("ta question?",vbOKCancel)

---

ou alors

Code:

---

msgbox("ta question?",1)

---

(je ne sais plus lequel des deux il faut choisir :D

bonne chance!

je suis trop lente dans la redaction de mes post...
tant pis pour moi:cry:

Bonjour

Code:

---

1 2 3 4 5

Private Sub RESET_Click() If MsgBox("Etes-vous sur de vouloir effacer le contenu des tableaux???", _ vbOKCancel) > 1 Then Exit Sub Sheets("Main").Range("C7:C16").ClearContents End Sub

---

Lol , ce n'est pas grave , ton post me sera quand même utile :D
Merci

Bonjour

Pour tout savoir sur les MsgBox, une bonne lecture : http://fring.developpez.com/vba/excel/msgbox/

Starec

Merci pour toutes vos réponses :D

PS:je vous aimes Mdr (surtout pyrene):mouarf: