msgbox et longueur message

[agnes]

bonjour,


peut on dans le texte d'une msgbox 'travailler' la mise en forme du texte du message (sauter ligne aller à la ligne). j'ai essayé avec chr(10) et chr(15) mais je ne dois pas avoir la bonne syntaxe.


merci

et félicitations au passage pour ce forum très instructif !

 

[ziopizza]

Bonjour agnes et le forum,

Un petit exemple,
Retour = MsgBox('Attention cette Date n'est pas la Date du jour ?' & Chr(10) & ' Voulez-vous continuer . ' & Date, vbYesNo + vbCritical + vbDefaultButton2, 'Date Du Jour')
Salut
Yves

 

[agnes]

c'est ça le vba

on se dit que s'est évident quand on le voie!

mais on est souvent aveugle tout seul !

merci pour cette réponse

 

[agnes]

C'est évident...mais

pourquoi qd je mets ds le code du msg

blabla' & chr(10) & chr(15) & 'blabla

j'ai un carré qui apparait au début de la deuxième ligne (et non un saut de ligne comme prévu)?

et tant qu'on y est pour des raisons esthétiques est-il possible de centrer le texte dans la msgbox?

merci d'avance

 

[PascalXLD]

Bonjour

Pour ton carré c'est normal car le chr(15) te donne un carré

Tu dois confondre avec le chr(13)

Sinon non tu ne peux pas centrer sur une msgbox

Bonne journée

 

[ziopizza]

Re bonjour agnes Bonjour Pascal76,
ce petit fichier ,pour plus d'explications.
Yves [file name=msgbox_20060321144714.zip size=8770]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/msgbox_20060321144714.zip[/file]

 

[Solenfou]

Bonjour le forum, le fil

On pourrait utiliser aussi bien dans le cas d'une msgbox que dans un Label dans un formulaire les constantes suivantes:

vbCrLf ====> Chr(13) & Chr(10) : retour à la ligne et saut de ligne

vbCr ====> Chr(13) : Retour à la ligne

vbLf ====> Chr(10) : Saut de ligne

vbTab ====> Chr(9) : Tabulation

Aussi le code de ton exemple ziopizza pourrait être le suivant:

Private Sub CommandButton1_Click()
'vbCrlf pour saut de ligne
'vbTab pour une tabulation plutôt que d'inserer des espaces dans le texte
Retour = MsgBox('Attention cette Date n'est pas la Date du jour ?' & vbCrLf & vbTab & 'Voulez-vous continuer . ' & Date, vbYesNo + vbCritical + vbDefaultButton2, 'Date Du Jour')
If Retour = 7 Then Range('a1').Value = 'Coucou': Exit Sub
Range('a1').Value = 'Bonjour'

End Sub


Bonne journée

Solenfou

 

[agnes]

merci à toutes les personnes de ce fil

toujours très instructif

a plus