VBA faire défiler du texte avec scrollbar

Version imprimable

02/11/2010, 18h09
Pouloupe

VBA faire défiler du texte avec scrollbar

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.:P
02/11/2010, 21h33
ESVBA

bonsoir Pouloupe, le forum...
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

Voici le code que j'utilise et sa marche parfaitement

Code:

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 :P