TOTAL DE LIGNE DANS UN TEXTE RAPIDE

Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
- - Dernière réponse : 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

ShanaBurns
Messages postés
30
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
30 mai 2003
-
Ouais c pas mal comme code mais voici une autre métode bien plus rapide encore et en une seule ligne de code.

Function Lignes(text As String) As Integer

Lignes=UBound(Split(text, vbCrLf)) + 1

End Function
druggedsephiroth
Messages postés
71
Date d'inscription
samedi 18 mai 2002
Statut
Membre
Dernière intervention
19 juin 2003
-
C'est pas mal mais je vois pas le rapport entre le nom de variable Apostrophe et un VbCrlf....
Kayrhan
Messages postés
51
Date d'inscription
samedi 20 avril 2002
Statut
Membre
Dernière intervention
14 novembre 2002
-
Ouaip il est cool ce code !
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 -
Voici un code encore plus rapide ( plus court, il ne passe pas par le mid(Texte.......)

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
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 -
Tu t'es trompé de rubrique, aucun rapport avec les apis... sinon c'est un bon code.