OVH Cloud OVH Cloud

Nbre de caractère dans une chaine

6 réponses
Avatar
Lulu la nantaise
Bonjour,
Comment compter le nbre de ligne contenu dans une cellule ?
Comment compter le nombre de caractère dans une chaine en VB ?
Comment remplacer ces caractères par d'autre tjs en VB ?
Merci beaucoup
Lulu

6 réponses

Avatar
papou
Bonjour
'nb caractères
MsgBox Len(ActiveCell)
'nb retours à la ligne
MsgBox Application.CountA(ActiveCell, Chr(10))
'remplacement de "z" par "y"
R = Replace(ActiveCell, "z", "y", 1, , vbTextCompare)
MsgBox R

Cordialement
Pascal
Avatar
Lulu la nantaise
Merci, mais c'est pas le nombre de caractère que je cherche à la question 1,
mais le nbre de ligne.
Merci de ton aide
Cordialement
Lulu
"papou" <cestpasbon@çanonplus> a écrit dans le message de news:

Bonjour
'nb caractères
MsgBox Len(ActiveCell)
'nb retours à la ligne
MsgBox Application.CountA(ActiveCell, Chr(10))
'remplacement de "z" par "y"
R = Replace(ActiveCell, "z", "y", 1, , vbTextCompare)
MsgBox R

Cordialement
Pascal



Avatar
papou
Re
Oui c'est exact, j'ai inversé les réponses aux deux 1ères questions.
Navré vraiment !

Cordialement
Pascal
Avatar
Lulu la nantaise
En fait j'ai une cellule avec "renvoi à la ligne automatique" et sans
Chr(10) : là, je veux savoir combien j'ai de lignes.
Ensuite j'ai une autre cellule avec des renvois à la ligne "forcés" donc
Chr(10) mais là maintenant j'ai la solution.
Merci
Lulu
"papou" <cestpasbon@çanonplus> a écrit dans le message de news:

Re
Oui c'est exact, j'ai inversé les réponses aux deux 1ères questions.
Navré vraiment !

Cordialement
Pascal




Avatar
papou
Désolé mais sur le cas du retour à la ligne auto je ne sais pas te dire.
Cordialement
Pascal
Avatar
JpPradier
Bonjour Lulu

Un moyen un peu détourné est de comparer ta hauteur de ligne avec celle d'une ligne
normale :

NbLigne= Range("A1").EntireRow.Height / Range("A65536").EntireRow.Height

En espérant que tes données ne vont pas jusqu'en 65536.

j-p