Grande textbox

Bonjour,

J'ai une grande textbox présente dans un multipage, j'aimerai intégrer du texte assez conséquant dans cette textbot qu'il ne sois pas possible de modifier mais seulement de lire avec un scrollbar dedans.

La value n'était pas suffisante avec vous une idée de comment puis-je procéder ?

Merci

Bonjour,

Voici un exemple avec un label et une textbox avec les propriétés modifiées notamment locked=true

Cdt

Bonjour toutes et tous

coucou Ddetp88

@Bilna

et avec un texte de la cellule A1 de la Feuil1 du classeur

la propriété de la TextBox1 de l'UserForm1 est sur Multiline à True mais aussi, le ScrollBars sur 3 - frmScrollBarsBoth

tout cela concocter dans un multipage (Page1)

Note : un bouton de commande sur la Feuil1 voir module 1 pour lancer la macro

et à la clé une capture d'écran

crdlt,

André

re et coucou André13,

Peut être ajouter aussi

Me.TextBox1.SelStart = 0

pour que la lecture se fasse au début du texte du textbox.

Cdt

Re,

merci Ddetp88 bien pensé je ne savais pas, cool merci pour l'information qui me sera utile sans doute bientôt

Me.TextBox1.SelStart = 0

crdlt,

André

Deux solutions pour le prix d'une ! Merci à vous

Très bien, tu en as de la chance

Re,

De rien avec plaisir Bilna

merci DDetp88, j'ne savais pas, merci pour l'information qui, me sera utile prochainement sans doute

test avec une deuxième fable en B2

Private Sub CommandButton1_Click()
'btn fermer
Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.SelStart = 0
Me.TextBox1 = Sheets("Feuil1").Range("a1")
End Sub

super çà fonctionne