Afficher plus de 255 caractères dans une textbox

Bonjour à tous,

Je suis en train de finaliser un dictionnaire sous excel avec un userform pour la consultation.

Il me reste un dernier problème à résoudre et j'ai grand besoin de votre aide pour y arriver ! :

La consultation du dictionnaire se fait à partir d'une liste de choix sur le userform.
Une fois le terme sélectionné deux Textbox sont alimentés par les définitions.
Problème : certaines définitions dépassent les 255 caractères et sont donc tronquées à l'affichage dans la textbox....

Quelqu'un aurait-il une proposition pour débloquer cette limite de 255 caractères dans l'affichage des text box ?!!

Merci d'avance pour votre aide !

PHS

mets le en multiligne, ton textbox

En fait j'ai déjà testé cette possibilité : le multiligne permet d'afficher le texte sur plusieurs lignes mais il ne change malheureusement pas la limite des 255 caractères !!

Merci en tout cas pour ton aide !

PHS

Et si tu cliques sur ta textbox peux tu te déplacer? si le texte dépasse, utilises peut-être des scrollbars avec la propriété multiline à true..

je pense que ta donnée est tronquée avant de parvenir a ta textbox. je pense a un champ limité en taille dans une base de données

Merci à tt les deux :
- Lolokun : Je ne peux pas me déplacer dans la textbox, multiline est déjà à True et max length (dans les propriétés) est à 0 !... j'ai essayé les codes décris sur le lien que tu a posté... mais je n'ai rien pu en tirer à part des messages d'erreur... VB n'avais pas l'air de reconnaitre maxlength...dans la sub de la text box...!
- Renfield : Ma bd est dans Excel sur le même classeur et je ramène un champ de ma BD contenant les fameux + de 255 caractères.... Je vais peut être tenter avec un retour à la ligne dans ma cellule excel la limite est peut-être liée à la longueur de la ligne et non pas à la capacité de la cellule....

PHS

Bon ben non ! Les retours à la ligne ne donnent rien non plus !

Au cas ou ci-dessous le code du userform....

Private Sub ComboBox1_Change()

TextBox1.Text = Application.Index(Range("Def_CEGID"), ComboBox1.ListIndex + 1)

TextBox2.Text = Format(Application.Index(Range("Compl_LATTY"), ComboBox1.ListIndex + 1), "0000000000")

 

Private Sub CommandButton1_Click()

Unload Me

 

Private Sub TextBox1_Change()

 

 

Private Sub TextBox2_Change()

 

 

Private Sub UserForm_Initialize()

Me.ComboBox1.ListIndex = 0

PHS

Re,

Voici donc le dernier point bloquant de mon glossaire !

Mes text box n'affichent pas plus de 255 caractères malgré un propriété maxlength à 0 !

Avis aux amateurs et merci d'avance à ces derniers !

Vous tiens au courant si j'avanc esur ce point ;-) !

PHS

bon ba chez moi ca marhce pô :(, quelqu'un a une idée ?  j'ai utilisé un richtextBox mias ca bloque toujours a 255.

Merci de votre aide.
J.