Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

VBA Textbox et scrollbar

3 réponses
Avatar
FMichaud76
Bonjour,

J'utilise une TextBox pour afficher des informations. Le texte est long donc
l'utilisateur doit naviguer avec la scrollbar pour découvrir tout le texte.
Toutefois lorsque la UserForm s'ouvre, la TextBox s'affiche avec le texte
mais la scrollbar n'est pas visible... il faut que l'utilisateur clique sur
la textbox pour que la scrollbar verticale apparaisse.

Les réglages de la textbox sont les suivants :

AutoSize=False
AutoTab=False
AutoWordSelect=False
DragBehavior=0
Enabled=True
EnterFieldBehavior=0
EnterKeyBehavior=False
HideSelection=True
IntegralHeight=False
Locked=True
MultiLine=True
ScrollBars=2 (fmScrollBarsVertical)
TabKeyBehavior=False
TabStop=False
Visible=True
WordWrap=True

Le texte contenu dans la variable "monTexte" est passé à "maTextBox" via la
macro VBA par la commande :

maTextBox.value=monTexte

Qui saurait me dire donc comment faire pour que la scrollbar soit activée
dès le départ et pas seulement quand l'utilisateur clique dans la textbox ?

A+, Fred

3 réponses

Avatar
FMichaud76
"FMichaud76" wrote:

J'utilise une TextBox pour afficher des informations. Le
texte est long donc l'utilisateur doit naviguer avec la
scrollbar pour découvrir tout le texte.
Toutefois lorsque la UserForm s'ouvre, la TextBox
s'affiche avec le texte mais la scrollbar n'est pas
visible... il faut que l'utilisateur clique sur
la textbox pour que la scrollbar verticale apparaisse.


... c'est remoi, la réponse est :

maTextBox.Value = monGrandTexteQuiDeborde
maTextBox.SetFocus ' Donner focus à tbox pour
' activer la scrollbar
maTextBox.CurLine = 0 ' et remonter à la première
' ligne de texte, sinon la tbox
' reste sur la dernière ligne

Ne pas oublier de redonner le focus à l'élément de votre choix (ici le
bouton OK)

monBoutonOK.SetFocus

C'est chouette de s'apporter ses propres réponses...

A+, Fred

Avatar
Jo-Soupin
bonjour Fred,

Tabstop = True

A+
Avatar
FMichaud76
bonjour Fred,

Tabstop = True


Ben non, parce que je ne veux pas que l'utilisateur arrive sur cette textbox
en appuyant sur Tab. Mais j'ai trouvé la soluce à mon problème, cf mon
message d'avant.

Merci quand même

A+, Fred