Discussion :

[Pouloupe]

Bonjour je viens vous demande de l'aide pour le problème suivant:

j'ai programmer une interface en VBA et dans un UserForm je place un label1, dans le quel il y a un texte qui dépasse la taille du lablel. j' essayer de lier une barre de défilement "scrollbar" à mon lable pour que mon texte défile comme une page web normale.

Seulement il n'est pas possible de liée une scrollbar et un label.

Donc si vous avez une solution, même sans utiliser de label je suis preneur.

[ESVBA]

Bienvenue sur le site.


Franchement j'éviterais cette option d'une partie cachée qu'il faut faire défiler et utiliserait la propriété "WordWrap = true". Ce n'est peut-être pas possible...

Sinon j'utiliserais une textbox avec les propriétés :

• "Locked = true"
• "Scrollbars = 1 fmscrollbarshorizontal"

La barre prend plus de place...
Il faut que vous choisissiez

ESVBA

[Pouloupe]

Voici le code que j'utilise et sa marche parfaitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
 
TextBox1.Locked = True
TextBox1.ScrollBars = fmScrollBarsVertical
TextBox1.MultiLine = True
TextBox1.WordWrap = True
TextBox1.Text = "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp"
 
 
End Sub

Merci pour ta réponce ESVBA