OVH Cloud OVH Cloud

VBA la textbox doit afficher le début du texte

4 réponses
Avatar
Olivier B
Bonour à tous !

Je suis encore au niveau débutant sous VBA.
J'ai fait un USERFORM avec plusieus textbox dans lesquels j'ai activé les
scrollbars verticales intégrées.

UN seul problème de présentation étant donné que les textes sont plus longs
que la hauteur de la textbox : je souhaiterais que la textbox s'affiche au
début du texte et non à la fin (par défault)

COMMENT FAIRE ???? Merci !

--
olivier

4 réponses

Avatar
MichDenis
Bonjour Olivier,

Utilise ceci :

Me.TextBox1.SelStart = 0


Salutations!


"Olivier B" <benardo974(supprimer contenu des parenthèses)@hotmail.com> a écrit dans le message de news:

Bonour à tous !

Je suis encore au niveau débutant sous VBA.
J'ai fait un USERFORM avec plusieus textbox dans lesquels j'ai activé les
scrollbars verticales intégrées.

UN seul problème de présentation étant donné que les textes sont plus longs
que la hauteur de la textbox : je souhaiterais que la textbox s'affiche au
début du texte et non à la fin (par défault)

COMMENT FAIRE ???? Merci !

--
olivier
Avatar
Olivier B
Oui, ça marche !!!

merci beaucoup !!

J'ai essayé avec un code du type :

Private Sub Image2_Click()
Me.TextBox1.SelStart = 0
End Sub

mais je voudrais que cette opération se fasse dès l'ouverture de l'userform...

maais comment faire

"MichDenis" wrote:

Bonjour Olivier,

Utilise ceci :

Me.TextBox1.SelStart = 0


Salutations!


"Olivier B" <benardo974(supprimer contenu des parenthèses)@hotmail.com> a écrit dans le message de news:

Bonour à tous !

Je suis encore au niveau débutant sous VBA.
J'ai fait un USERFORM avec plusieus textbox dans lesquels j'ai activé les
scrollbars verticales intégrées.

UN seul problème de présentation étant donné que les textes sont plus longs
que la hauteur de la textbox : je souhaiterais que la textbox s'affiche au
début du texte et non à la fin (par défault)

COMMENT FAIRE ???? Merci !

--
olivier





Avatar
anonymousA
bonjour,

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.TextBox1.SelStart = 0

End Sub

a+

Bonour à tous !

Je suis encore au niveau débutant sous VBA.
J'ai fait un USERFORM avec plusieus textbox dans lesquels j'ai activé les
scrollbars verticales intégrées.

UN seul problème de présentation étant donné que les textes sont plus longs
que la hauteur de la textbox : je souhaiterais que la textbox s'affiche au
début du texte et non à la fin (par défault)

COMMENT FAIRE ???? Merci !



Avatar
MichDenis
Bonjour Olivier,

Utilise l'évènement suivant :

'-----------------
Private Sub UserForm_Activate()
Me.TextBox1.SelStart = 1
End Sub
'-----------------


Salutations!




"Olivier B" <benardo974(supprimer contenu des parenthèses)@hotmail.com> a écrit dans le message de news:

Oui, ça marche !!!

merci beaucoup !!

J'ai essayé avec un code du type :

Private Sub Image2_Click()
Me.TextBox1.SelStart = 0
End Sub

mais je voudrais que cette opération se fasse dès l'ouverture de l'userform...

maais comment faire

"MichDenis" wrote:

Bonjour Olivier,

Utilise ceci :

Me.TextBox1.SelStart = 0


Salutations!


"Olivier B" <benardo974(supprimer contenu des parenthèses)@hotmail.com> a écrit dans le message de news:

Bonour à tous !

Je suis encore au niveau débutant sous VBA.
J'ai fait un USERFORM avec plusieus textbox dans lesquels j'ai activé les
scrollbars verticales intégrées.

UN seul problème de présentation étant donné que les textes sont plus longs
que la hauteur de la textbox : je souhaiterais que la textbox s'affiche au
début du texte et non à la fin (par défault)

COMMENT FAIRE ???? Merci !

--
olivier