Centrer le texte d'une MsgBox

Michel Pierron

17/10/2006 à 15:58

Bonjour Yvan;
Ce n'est pas prévu d'origine, mais tu peux essayer l'astuce suivante:

Sub MessageTest()
Call Msg("La première ligne est beaucoup plus grande" _
, "que la deuxième et" _
, "presqu'aussi grande que la troisième qui est beaucoup" _
, "plus grande que la quatrième !")
End Sub

Private Function Msg$(ParamArray T())
Dim i%, iMax%, b%
For i = LBound(T) To UBound(T)
If Len(T(i)) > iMax Then iMax = Len(T(i))
Next i
For i = LBound(T) To UBound(T)
If Len(T(i)) < iMax Then
b = (iMax - Len(T(i))) * 0.8 ' Spaces number
T(i) = Space(b) & T(i) ' Center
End If
Msg = Msg & T(i) & Chr(10)
Next i
MsgBox Msg, 64
End Function

MP

"Yvan" a écrit dans le message de news:

Bonjour,

Quelle syntaxe utiliser pour que le texte d'une MsgBox apparaisse centré
???

--
Merci pour vos réponses.

Yvan

17/10/2006 à 16:20

Ouaou !!! Finalement, je crois qu'il est préférable de faire des phrases plus
concises. Merci beaucoup !!!
--
Merci pour vos réponses.

Bonjour Yvan;
Ce n'est pas prévu d'origine, mais tu peux essayer l'astuce suivante:

Sub MessageTest()
Call Msg("La première ligne est beaucoup plus grande" _
, "que la deuxième et" _
, "presqu'aussi grande que la troisième qui est beaucoup" _
, "plus grande que la quatrième !")
End Sub

Private Function Msg$(ParamArray T())
Dim i%, iMax%, b%
For i = LBound(T) To UBound(T)
If Len(T(i)) > iMax Then iMax = Len(T(i))
Next i
For i = LBound(T) To UBound(T)
If Len(T(i)) < iMax Then
b = (iMax - Len(T(i))) * 0.8 ' Spaces number
T(i) = Space(b) & T(i) ' Center
End If
Msg = Msg & T(i) & Chr(10)
Next i
MsgBox Msg, 64
End Function

MP

"Yvan" a écrit dans le message de news:

Bonjour,

Quelle syntaxe utiliser pour que le texte d'une MsgBox apparaisse centré
???

--
Merci pour vos réponses.

Oliv'

17/10/2006 à 16:39

*Yvan que je salut a écrit *:

Ouaou !!! Finalement, je crois qu'il est préférable de faire des
phrases plus concises. Merci beaucoup !!!

par contre tu peux mettre des vbcr pour passer à la ligne.

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Paul V

18/10/2006 à 13:17

Hello Oliv,

Si c'est vraiment important, il y a une astuce qui est d'utilser des espaces
et des passages à la lignes mais comme dans l'exemple ci dessous

MsgBox " BONJOUR" & vbCr & _
"J'aimerais centrer la phrase " & vbCr & _
" ci-dessous" & vbCr & _
" pour faire vraiment" & vbCr & _
" TRES" & vbCr & _
" joli" & vbCr & _
"même si c'est completement inutile"

L'exemple n'est pas parfait mais il suffit de jouer sur les espaces.
Il est possible que cela ne passe pas correctement ici mais tu as l'idée.

A+

Paul V , jour J-2

"Oliv'" <(supprimerceci) a écrit dans le
message de news: %

*Yvan que je salut a écrit *:
Ouaou !!! Finalement, je crois qu'il est préférable de faire des
phrases plus concises. Merci beaucoup !!!

par contre tu peux mettre des vbcr pour passer à la ligne.

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Centrer le texte d'une MsgBox

4 réponses

Veuillez sélectionner un problème