Discussion :

[vinssieux]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zandru]

Bonjour,

comme ça cela devrait marcher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pyrene]

oui oui ca doit etre possible!

aide de excel (VB):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox("ta question?",1)

(je ne sais plus lequel des deux il faut choisir

bonne chance!

[pyrene]

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

[vinssieux]

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

[Invité]

Bonjour

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

Starec

[vinssieux]

Merci pour toutes vos réponses

PS:je vous aimes Mdr (surtout pyrene)

[Abed_H]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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