Msgbox trop courte
dolu74200
-
dolu74200 -
dolu74200 -
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
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
Configuration: Windows XP Firefox 2.0.0.20
2 réponses
-
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+ -
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+-
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+
-
