MsgBox

[Popi14]

Bonjour,

J'utilise la fonction msgbox pour afficher un résultat.

le code est très simple: Msgbox "le résultat est: TOTO "


J'aimerai avoir avec ce message, juste en dessous trois bouttons, qui sont apprendre, corriger et cancel.

Le bouton apprendre pour enregistrer le résultat dans une case, corriger pour entrer un autre nom et cancel pour fermer la msgbox.

**Pourriez-vous me donner la syntaxe pour afficher les trois boutons avec la msgbox.

Je vous remercie d'avance pour votre aide,

Bonne journée,

Popi14

 

[Jacques87]

Re : MsgBox

Bonjour ,

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

A suivre

 

[Popi14]

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

 

[Jacques87]

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+

 

[JYLL]

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

 

[Popi14]

Re : MsgBox

Bonjour JYLL et jacques,

Je vous remercie tous les deux pour votre aide

Bonne fin de journée,

Popi14