Msgbox trop courte

Fermé
dolu74200 - 4 avril 2009 à 16:51
 dolu74200 - 5 avril 2009 à 09:49
salut
J'aimerais lors d'une macro afficher un texte. Je l'ai donc taper (avec la mise en forme requise) dans une msgbox. Mon problème est que le texte ne s'affiche pas en entier. Je ne peut pas réduire la taille de celui-ci donc j'aimerais savoir si il est possible d'augmenter celle de l' msgbox ?
merci

2 réponses

Mike-31 Messages postés 18351 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 12 décembre 2024 5 110
4 avril 2009 à 17:22
Salut,

En supposant que ton texte est
" - Cette donnée ne figure pas dans la liste, souhaitez vous l'ajouter?"

tu peux le mettre sur deux lignes


" - Cette donnée ne figure pas dans la liste," & vbCrLf & "souhaitez vous l'ajouter?"

Eventuellement sur trois ou plus

Chaque & vbCrLf est un retour ligne

" -Cette donnée ne figure pas dans la liste," & vbCrLf & vbCrLf & "souhaitez vous l'ajouter?"

Mais genéralement le retour ligne sur un texte long ce fait automatiquement lorsque les limites de la msgbox sont atteintes

A+
0
merci pour ta réponse
mais mon problème n'est pas la longueur horizontal ( je l'ai déjà fait) mais le texte ne rentre pas à la vertical.
a+
0
Mike-31 Messages postés 18351 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 12 décembre 2024 5 110
4 avril 2009 à 18:20
Re,

Je ne comprend pas très bien, si ton fichier n'a pas de données confidentielles mets le sur un post ou fais une capture écran que tu colles dans un fichier et joints le avec ce lien, il y a surement une solution

https://www.cjoint.com/

A+
0
salut
justement les donné sont personnel voici ce que ça donne en simplifier (la mise en forme na pas était sauvegarder) ceci:

Sub esqui()

n11 = MsgBox(" numero:000000000000000000000000000000000000000000000000000000000000000000000" & vbCrLf & _
" 100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" & vbCrLf & _
" 20000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" & vbCrLf & _
" 300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" & vbCrLf & _
" 40000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" & vbCrLf & _
" 5000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" & vbCrLf & _
" 6000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" & vbCrLf & _
" 700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" & vbCrLf & _
" 800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" & vbCrLf & _
" 90000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" & vbCrLf & _
" 10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" & vbCrLf & _
" 11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" & vbCrLf & _
" 12000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" & vbCrLf & _
" voulez vous recommencer une recherche?", vbYesNo, "Ou piquer ?")
If n11 = vbNo Then
ElseIf n11 = vbYes Then
esqui
End If

End Sub


cependant tu peut voir que dans la msgbox tout n'est pas écrit.
a+
0