Adapter le contenu d'une text box à une taille de textbox définie.

[excel debutant]

Bonjour,

J'ai essayé de limiter le contenu d'une texte box à sa taille mais impossible.

J'ai essayé avec la propriété "Max length" mais cette propriété ne limite pas le nombre de ligne, mais seulement le nombre de caractère.
De ce fait je peux sauter plusieurs lignes et donc je ne suis pas limité à la taille de la textBox. (la textbox accepte de recevoir un maximum de ligne)

J'ai également codé avec:

Private Sub TextBox1_Change()
If TextBox1.LineCount > 3 Then
MsgBox "nombre de lignes atteint"
End If
If Len(TextBox1.Value) / (TextBox1.LineCount) >= 20 Then
TextBox1.Value = TextBox1.Value & vbCrLf
End If
End Sub

Mais cela ne marche pas.


Avez vous des solutions pour simplement bloquer le contenu d'une textbox à sa taille?

Merci