[AC-2007] Trouver le nombre de lignes remplies d'un TextBox

[Triton972]

Bonjour à tous,

Je cherche un moyen de déterminer le nombre de lignes d'un TextBox que remplit une variable String (ou Mémo) sachant que dans le String il peut y avoir un ou plusieurs retours à la ligne (vbCrLf).
Merci de vos aides.
Cordialement,

[Triton972]

Bonsoir,

En cherchant un peu j'ai trouvé.
J'ai remplacé le Textbox traditionnel par un Textbox de l'ActiveX de Microsoft Forms et j'ai utilisé la propriété : ".LineCount".
@+

[Philippe JOCHMANS]

Bonjour

Voilà par exemple une fonction qui permet de détecter les retours à la ligne et donc te renvoies le nombre de lignes.

Il y a sûrement mieux, mais c'est une première approche à tester dans ton contexte.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function NbrLignesMemo(strChaine As String) As Integer
 
    ' déclaration d'un tableau
    Dim tabQte() As String
 
    ' on remplit le tableau
    tabQte = Split(strChaine, Chr(13))
    ' récupération du nombre de ligne
    If LBound(tabQte()) = 0 Then
        NbrLignesMemo = UBound(tabQte()) + 1
    Else
        NbrLignesMemo = UBound(tabQte())
    End If
 
 
End Function

Philippe

[helas]

Bonjour,
Effectivement le TextBox ne permet pas de compter ses lignes.
Peut-être ce code

Code :

1
2
3
4
 
 Dim s() As String
 s = Split( Me!TextBox , vbcrlf)
 NbLignes = Ubound(s) + 1

[Triton972]

Philippe et helas, je vous remercie pour vos réponses mais cela ne permet de trouver le nombres de lignes inscrites dans le TextBox pour une chaine de longueur > à la largeur du controle. Les retours à la ligne se font directement sans ajout de symboles dans la chaine.
Tant pis c'est pas grave, avec ActiveX Forms je règle mon problème !
Merci quand même.
@+