Calcul Nombre de lignes de texte dans une cellule

Bonjour

Je ne trouve pas comment compter le nombre de lignes de texte dans une cellule (ou le nombre de retour chariot pour contourner le problème ?)

Merci d'avance

Bonjour,

Tu peux tester cette fonction personnelle

Function CompterRetourChariot(Cellule As Range) As Integer
    CompterRetourChariot = UBound(Split(Cellule, Chr(10))) + 1
End Function

A+