Total de ligne dans un texte rapide

Commenter

Contenu du snippet


Source / Exemple : 


Public Function NTotal(RichTextBoxLigne As String)
Dim numLines, Texte
numLines = 1
Texte = RichTextBoxLigne
Do
Apostrophe = InStr(Texte, vbCrLf)
If Apostrophe <> 0 Then
numLines = numLines + 1
Texte = Mid(Texte, Apostrophe + 1, Len(Texte) - Apostrophe)
Else
Exit Do
End If
Loop
NTotal = numLines
End Function

Conclusion :


Private Sub Command1_Click()
MsgBox NTotal(Text1.text)
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_MEGATRIX)