TOTAL DE LIGNE DANS UN TEXTE RAPIDE
cs_Alain Proviste
Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
-
1 août 2002 à 19:34
ShanaBurns Messages postés 30 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 30 mai 2003 - 2 août 2002 à 17:27
ShanaBurns Messages postés 30 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 30 mai 2003 - 2 août 2002 à 17:27
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/4199-total-de-ligne-dans-un-texte-rapide
https://codes-sources.commentcamarche.net/source/4199-total-de-ligne-dans-un-texte-rapide
2 août 2002 à 17:27
Function Lignes(text As String) As Integer
Lignes=UBound(Split(text, vbCrLf)) + 1
End Function
2 août 2002 à 14:58
1 août 2002 à 19:55
1 août 2002 à 19:53
Function Lignes(text As String) As Integer
Dim Start As Integer
Lignes = 0
If text = vbNullString Then Exit Function
Do
Start = InStr(Start + 1, text, vbCrLf)
Lignes = Lignes + 1
DoEvents
Loop While Not Start = 0
End Function
1 août 2002 à 19:34