OVH Cloud OVH Cloud

Compter lignes dans cellule

7 réponses
Avatar
Grégory
Bonsoir,

J'aurai besoin de compter le nombre de lignes d'une cellule dans une macro .
Je n'ai pas trouvé de fonction dispo...
Je pensais compter le nombre de retours chariots par ex... sans succès.

Merci de votre aide précieuse!
Greg

7 réponses

Avatar
anonymousA
Bonjour,

si tu as Excel2000 ou +

msgbox UBound(Split(Cells(1, 1).Value, Chr(10)))+1

te donnera le nombre de lignes d'une cellule ( ici dans l'exemple la
cellule A1)

A+

Bonsoir,

J'aurai besoin de compter le nombre de lignes d'une cellule dans une macro .
Je n'ai pas trouvé de fonction dispo...
Je pensais compter le nombre de retours chariots par ex... sans succès.

Merci de votre aide précieuse!
Greg


Avatar
Grégory
Génial, un grd merci!
Effectivement, ça ne tombait pas sous le sens...



Bonjour,

si tu as Excel2000 ou +

msgbox UBound(Split(Cells(1, 1).Value, Chr(10)))+1

te donnera le nombre de lignes d'une cellule ( ici dans l'exemple la
cellule A1)

A+

Bonsoir,

J'aurai besoin de compter le nombre de lignes d'une cellule dans une macro .
Je n'ai pas trouvé de fonction dispo...
Je pensais compter le nombre de retours chariots par ex... sans succès.

Merci de votre aide précieuse!
Greg





Avatar
Michel Gaboly
Bonsoir,

Voici un exemple :


Sub NbLignes()
MsgBox Len(ActiveCell) - Len(Replace(ActiveCell, vbNewLine, "")) + 1
End Sub

Cela ne fonctionne qu'avec les versions basées sur la version 6 de
VisualBasic. Avec Excel 97 ou Excel Mac, "Replace" n'est pas dispo, et
il faut utiliser la fonction de feuille de calcul SUBSTITUE() :

Sub NbLignes()
MsgBox Len(ActiveCell) -
Len(Application.WorksheetFunction.Substitute(ActiveCell, vbNewLine, "")) + 1
End Sub


Bonsoir,

J'aurai besoin de compter le nombre de lignes d'une cellule dans une macro .
Je n'ai pas trouvé de fonction dispo...
Je pensais compter le nombre de retours chariots par ex... sans succès.

Merci de votre aide précieuse!
Greg



--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
isabelle
bonjour Grégory,

pour toutes versions,

x = Len([A1]) - Len(Application.WorksheetFunction.Substitute([A1], Chr(10), "")) + 1

isabelle

Bonsoir,

J'aurai besoin de compter le nombre de lignes d'une cellule dans une macro .
Je n'ai pas trouvé de fonction dispo...
Je pensais compter le nombre de retours chariots par ex... sans succès.

Merci de votre aide précieuse!
Greg


Avatar
Michel Gaboly
Bonsoir Isabelle,

D'accord globalement, mais cela ne marche pas sur les versions Mac,
pour lesquelles c'est Chr(13) qui remplace Chr(10)

D'où l'intérêt de VbNewLine qui fonctione sur les 2 plate-formes. ;-))


bonjour Grégory,

pour toutes versions,

x = Len([A1]) - Len(Application.WorksheetFunction.Substitute([A1],
Chr(10), "")) + 1

isabelle


Bonsoir,

J'aurai besoin de compter le nombre de lignes d'une cellule dans une
macro .
Je n'ai pas trouvé de fonction dispo...
Je pensais compter le nombre de retours chariots par ex... sans succès.

Merci de votre aide précieuse!
Greg




--
Cordialement,

Michel Gaboly
www.gaboly.com


Avatar
isabelle
:-)))
comme mac est une exception en soit je n'avais pas cru bon de le mentionner.
sans rancune, de toute façon je cours au abris ;-)

isabelle

Bonsoir Isabelle,

D'accord globalement, mais cela ne marche pas sur les versions Mac,
pour lesquelles c'est Chr(13) qui remplace Chr(10)

D'où l'intérêt de VbNewLine qui fonctione sur les 2 plate-formes. ;-))



bonjour Grégory,

pour toutes versions,

x = Len([A1]) - Len(Application.WorksheetFunction.Substitute([A1],
Chr(10), "")) + 1

isabelle


Bonsoir,

J'aurai besoin de compter le nombre de lignes d'une cellule dans une
macro .
Je n'ai pas trouvé de fonction dispo...
Je pensais compter le nombre de retours chariots par ex... sans succès.

Merci de votre aide précieuse!
Greg









Avatar
Michel Gaboly
;-))

Le MPFE me manquait !


:-)))
comme mac est une exception en soit je n'avais pas cru bon de le
mentionner.
sans rancune, de toute façon je cours au abris ;-)

isabelle


Bonsoir Isabelle,

D'accord globalement, mais cela ne marche pas sur les versions Mac,
pour lesquelles c'est Chr(13) qui remplace Chr(10)

D'où l'intérêt de VbNewLine qui fonctione sur les 2 plate-formes. ;-))



bonjour Grégory,

pour toutes versions,

x = Len([A1]) - Len(Application.WorksheetFunction.Substitute([A1],
Chr(10), "")) + 1

isabelle


Bonsoir,

J'aurai besoin de compter le nombre de lignes d'une cellule dans une
macro .
Je n'ai pas trouvé de fonction dispo...
Je pensais compter le nombre de retours chariots par ex... sans succès.

Merci de votre aide précieuse!
Greg










--
Cordialement,

Michel Gaboly
www.gaboly.com