Question de presentation msgbox

  • Initiateur de la discussion Initiateur de la discussion PIEDEPLOMB33
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

PIEDEPLOMB33

Guest
Bonjour à tous

J'ai besoin d'une aide pour compléter le code suivant :

Sub essai()
Tablo1 = "ADRESSE :"
Tablo2 = "COMPLEMENT ADRESSE :"
Message = Message & Tablo1 & vbCrLf & Tablo2
MsgBox Message
End Sub

Pourquoi les ":" ne sont ils pas alignés l'un en dessous de l'autre ?

Merci d'avance

Cordialement
 
Re : Question de presentation msgbox

Merci

J'ai essayé en rajoutant string(x," ") x étant calculé en fonction de la longueur de la chaîne de caractères, mais cela ne marche pas vraiment à cause, sauf erreur de ma part, de la taille des différents caractères.

Y a t il une astuce pour y remédier ?
 
Re : Question de presentation msgbox

Bonjour PiedDePlomb, Bonjour PascalXLD,

ou alors on peut tout aligner à droite en mettant

Msgbox prompt:="toto :", Buttons:=vbMsgBoxRight
mais ça n'alignera pas les ":" si tu mets quelque chose après... et je suppose que c'est le but, non ?
 
Re : Question de presentation msgbox

Bonjour PIEDEPLOMB33,
je crois seulement que tu n'as pas mis le retour de chariot au bon endroit.
Essaye quelque chose comme ceci :


Code:
Sub test()

Tablo1 = "ADRESSE :"
Tablo2 = "COMPLEMENT ADRESSE :"

MsgBox Tablo1 & vbCrLf & Tablo2 

End Sub

Cordialement,

Étienne
 
Re : Question de presentation msgbox

Merci à vous 3 pour les réponses rapides.

TOTOTITI, tu as tout compris, le but étant de rajouter des chaines de caractères contenues dans des cellules et des TextBox(s).

Quant à Etienne j'ai essayé mais cela ne marche pas.

cordialement
 
Re : Question de presentation msgbox

Re

J'avais commencé dans le sens que tu m'indiques, mais je m'était suis ravisé pensant que le Msgbox serait plus simple.

J'ai eu tort.

Je vais me remettre de ce fait au travail

Merci sincèrement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
615
Retour