Textbox multiligne à limiter à 5 lignes

[donpopo]

Bonjour tout le monde,

Je cherche à limiter une textbox multiligne à 250 caractères et/ou à 5 lignes.

Je sais limiter le nombre de caractères dans les propriétés, mais je ne sais limiter le nombre de ligne

Je cherche une procédure du type:

Sub Textbox1_Change
Is LineCount=5 then 'bloquer l'encodage
end sub

Auriez-vous une idée?

Bàv,

Donpopo

 

[CHALET53]

Re : Textbox multiligne à limiter à 5 lignes

Bonjour,
Regarde si la propriété Curline (Textbox1.curline) ne pourrait pas être testée pour régler ton problème

...Peut-être!!!

a+

 

[Pierrot93]

Re : Textbox multiligne à limiter à 5 lignes

Bonjour Donpopo, Chalet

essaye peut être ceci, pour un textbox utilisant le propriété "multiline" :

Private Sub UserForm_Initialize()
TextBox1.MultiLine = True
End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With TextBox1
    If .LineCount > 5 Then KeyCode = 0
    If .LineCount = 6 Then .Text = Mid(.Text, 1, InStrRev(.Text, vbCrLf) - 1)
End With
End Sub

bonne soirée
@+

 

[donpopo]

Re : Textbox multiligne à limiter à 5 lignes

Bonjour et merci à tous deux,

La méthode de Pierrot93 est vraiment complète et me convient à merveille.

A+

Donpopo