Discussion :

[juanelcalor]

Bonjour,
J'aimerais pourvoir limiter le nombre de lignes dans un textbox multiligne pouvant être sur une feuille ou dans un userform.
Merci à tous
Juan

[ridan]

Bonjour,
J'aimerais pourvoir limiter le nombre de lignes dans un textbox multiligne pouvant être sur une feuille ou dans un userform.
Merci à tous
Juan

Salut,

je vois deux solutions :

Calculer les retours à la ligne dans ton champs texte : vbCrLf

Utiliser un richtextbox

[ridan]

Désolé, Ridan, mais dans un TextBox Multi-lignes, si les vbcrlf ne sont pas introduits dans le texte volontairement, tu n'as pas de vfcrlf à chaque retour à la ligne. C'est la largeur du contrôle qui gère les renvois.

A+

c'est pour ça que je lui ai proposé d'utiliser un richtextbox

[ridan]

Salut,

Désolé, mauvaise info de ma part. Dans un richtextbox il n'y a pas d'attribut qui renvoie le nombre de lignes ( si vous en trouvez un signalez le moi )

Sinon il y a une solution que j'ai trouvé sur le Web en passant par les API. Elle fonctionne avec les deux composants (richtextbox et TextBox)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Declare Function SendMessageByNum Lib "user32" _
    Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Const EM_LINEFROMCHAR = &HC9
Private Const EM_LINEINDEX = &HBB
 
Public Function GetCurrentLine(TxtBox As Object) As Long
    With TxtBox
    GetCurrentLine = SendMessageByNum(.hwnd, EM_LINEFROMCHAR, CLng(.SelStart), 0&) + 1
    End With
End Function
 
Private Sub Command1_Click()
    MsgBox GetCurrentLine(RichTextBox1)
    MsgBox GetCurrentLine(Text1)
End Sub

[juanelcalor]

Ben en faite, le nombre de caracteres ca m'interesse pas trop car ils sont pas tous de la meme longueur. j'aimerai bien pouvoir remplir la zone completement.
Sinon pour la deuxieme solution, ca m'a l'air bien compliqué lol

Je vais essayer de me debrouiller au boulot avec ca et si ca marche pas je viendrais vous embeter encore un peu

[ouskel'n'or]

Hello,

J'ai lu quelque part sur le forum qu'on pouvait connaître la longueur des caractères... Ce n'est pas très vieux, si tu as la patience...

A toutes fins utiles

A+

[juanelcalor]

non en faite c bon. j'ai utilisé la police courrier new pour que les caracteres soient de la meme taille, et je fais des recherches de retour chariot, je compte les caracteres et les retour chariots et je bloque j'ajout de caractères des que j'atteind mon max.

ouf ct pas de la tarte