MsgBox

Jacques87

XLDnaute Accro

• 4 Décembre 2006

• #2

Re : MsgBox

Bonjour ,

Pourquoi ne pas utiliser un UserForm plutôt qu'un MsgBox qui est plus réducteur ?

A suivre

 

Vote positif 0 Vote négatif

P

Popi14

Guest

• 4 Décembre 2006

• #3

Re : MsgBox

Bonjour Jacques,

Je veux bien mais je ne sais pas m'en servir. Je suis débutant avec excel.

Peux me transmettre le code avec un userform ?

Merci

Popi14

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 4 Décembre 2006

• #4

Re : MsgBox

Re,

Je veux bien te construire cet UserForm, mais par souci de facilité il faudrait que tu me fasses parvenir ton fichier (évidemment épuré de toutes données confidentielles)

A+

 

Vote positif 0 Vote négatif

JYLL

Nous a quitté

Repose en paix

• 4 Décembre 2006

• #5

Re : MsgBox

Bonsoir popi14, Jacques et le forum,

Voici un exemple avec les trois boutons pour une msgbox:

Sub test()
Dim Msg, Style, Title, Help, Ctxt, Reponse, MyString
Msg = "Souhaitez-vous continuer?" ' Définit le message.
Style = vbYesNoCancel + 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.
Reponse = MsgBox(Msg, Style, Title, Help, Ctxt)
If Reponse = vbYes Then ' L'utilisateur a choisi Oui.
MyString = "Oui" ' Effectue une action.
ElseIf Reponse = vbNo Then ' L'utilisateur a choisi Non.
MyString = "No" ' Effectue une action.
Else ' L'utilisateur a choisi Cancel
MyString = "Cancel" 'Effectue une action
End If
MsgBox (MyString)
End Sub

Bon test

 

Dernière édition: 4 Décembre 2006

Vote positif 0 Vote négatif

P

Popi14

Guest

• 4 Décembre 2006

• #6

Re : MsgBox

Bonjour JYLL et jacques,

Je vous remercie tous les deux pour votre aide

Bonne fin de journée,

Popi14

 

Vote positif 0 Vote négatif