configurer un MsgBox

[Agm]

Bonjour,

Quelqu'un peut m'expliquer comment on peut configurer un Msgbox ( Ajout d'un titre, taille, la police des caractères etc ...)

Merci.

 

[Eric C]

Bonjour le forum
Bonjour Agm

Sous VBE dans un module, tu tapes MsgBox, tu le surlignes puis fais F1 pour avoir toute l'aide nécessaire, ce qui donne :

MsgBox, fonction, exemple
Cet exemple utilise la fonction MsgBox pour afficher un message d'erreur grave dans une boîte de dialogue pourvue des boutons Yes et No. Le bouton No est spécifié comme réponse par défaut. La valeur renvoyée par la fonction MsgBox dépend du bouton sélectionné par l'utilisateur. Dans cet exemple, DEMO.HLP est un fichier d'aide contenant une section dont le numéro de contexte d'aide est 1000.

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

Maintenant, concernant le taille et la police, je pense que tu dois passer par un UserForm pour parvenir à tes fins.

Bonne journée à toutes & à tous

 

[PascalXLD]

Bonjour

Pour le titre c'est dans la msgbox que tu le configures : MsgBox('toto',vbokonly,'Mon Titre')
Pour les autres tu ne peux rien changer ou alors passer par une userform

Bon courage

Edition : salut Eric et on est d'accord

Message édité par: Pascal76, à: 09/02/2006 09:49

 

[Agm]

Pascal ca marche pas avec ta solution. Voci le code :

Private Sub CommandButton1_Click()
Sheets('Temps de passage').Range('B1').Value = TextBox1.Value
Sheets('Temps de passage').Range('B2').Value = TextBox2.Value
Dim msg As String, i As Long
With Sheets('Temps de passage')
For i = 6 To 58
msg = msg & .Range('A' & i) & ' ---> ' & Format(.Range('B' & i), 'hh:mm:ss') & vbCrLf
Next i
End With
MsgBox ('msg',vbOKOnly,'Temps de passage')
End Sub

Je ne sais pas trop ce qui va pas dessus.

 

[PascalXLD]

Re

ta ligne s'ecrit ainsi

MsgBox msg,vbOKOnly,'Temps de passage'

Bon courage