compter nombre de retour chariot

Rebonjour tout le monde,
J'ai un tout petit souci qui risque d'être réglé vite mais que je ne trouve pas.
Je souhaiterais compter le nombre de retour chariot que j'ai dans une cellule.
Après j'adapterais à toutes mes cellules.
merci d'avance.

Les "retour chariot", dans une cellule, sont des chr(10).

ca marche comme si j'utilisais vbcrlf ?
Ou alors vbcrlf ne marche pas et il faut utiliser chr(10) ?
Cdlt.

chr(10) = vbLf

Bonjour,

Utiliser la constante VbNewLine n'est jamais maladroit !

bonjour,
mais pour utiliser vbNewLine, je dois avoir un tableau or ce n'est pas le cas !
Pour l'instant j'ai un code qui ressemble à sa et sa ne marche pas car il ne connaît pas la fonction count (je croyais)!

Code:

---

1 2 3

for i = 1 to len ("cellule") nb_RC = count (Chr(10)) next i

---

où cellule est la cellule avec au moins un retour chariot (RC).
Cdlt.

Utilise donc la fonction Split (vois celà dans ton aide en ligne) elle est faite pou çà ...

Bonjour,
Le problème est que j'ai excel sur un pc et internet sur l'autre ! Donc pour l'aide en ligne, ce n'est pas évident! :roll:
Et la journée, je ne peux pas faire autrement, mais je vais essayer split et te tiens au courant. :)

L'aide en ligne est sur TA machine et n'a rien à voir avec un accès quelconque à Internet 8O
Tu ne l'as donc jamais consultée ?
Même les plus avancés des développeurs ont en un besoin quasi constant ...8O

ah ben, merci, et c'est vrai que je n'ai jamais pensé à la consulter :oops:

Ton split me fait buguer !
j'ai donc fait ce petit programme mais il m'affiche toujours 0.
Si quelqu'un veut bien m'aider !

Code:

---

1 2 3 4 5

for i = 1 to len ("cellule") if i = chr(10) then nb_RC = nb_RC+1 end if next i

---

Merci de votre aide.

Euh ...

1) Pour faire comme tu le fais là, c'est avec MID qu'il faut agir (lire Mid dans l'aide en ligne...;))

2) Split provoque un bug ?
Montre ton code avec Split, donc...

presque ça...;)

Code:

---

1 2 3 4 5

For i = 1 To Len(Range("tacellule")) If Mid(Range("tacellule"), i, 1) = Chr(10) Then nb_RC = nb_RC + 1 End If Next i

---

Merci à vous, ca marche trop bien :yaisse2:
ucfoutu, je vais lire plus souvent l'aide en ligne ;)