Discussion :

[Gautheron]

Bonjour à tous.

C'est sans doute une procédure très simple, mais je n'ai pas trouvé dans la junggle du forum.
Voila, pour des raisons de mise en forme spécifique des cellules, j'ai besoin de connaitre le nombre de lignes affichées dans une cellule lorsque le texte inscrit est long.
Quelqu'un a la solution?
Merci.

[Invité]

Bonsoir,

Vous voulez dire que la cellule est formatée avec : Reenvoyer à la ligne automatiquement ?

Si oui : regarder la hauteur de ligne lorsque le texte ne nécessite qu'une ligne (exemple 12.75) puis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ht = 12.75
htlgn = Rows(1).RowHeight
nbl = htlgn/ht

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
lgn = ActiveCell.Row
ht = 12.75
htlgn = Rows(lgn).RowHeight
nbl = htlgn/ht

[Gautheron]

Tiens oui, pourquoi pas...
Votre solution peut faire l'affaire. Merci.
Y a t-il un truc plus direct comme pour les textbox du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 nb_ligne = texbox1.LineCount

???
merci

d'autre part, la hauteur automatique ne marche pas s il y a des retours à la ligne.
Donc vraiment, je suis à la recherche d'un code direct a priori

[ouskel'n'or]

Le saut de ligne dans une cellule est le caractère de contrôle chr(10)
Il suffit de les compter.
La méthode dada :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 1 to Len(Cells(NoLig, NoCol))
    Nb = Nb+ ((asc(mid(Cells(NoLig, NoCol),i,1)) = 10) *-1)
Next
nb = nb + 1'parce que la première ligne n'est pas comptée

On doit bien avoir une fonction NbCar comme dans Word, dans Excel, ce serait plus simple. Tu regardes ça ?
Bonne soirée

[Invité]

A priori le saut de ligne dans une cellule n'est pas reconnu comme le caractère chr(10). J'ai eu des problèmes dans d'autres cas à ce sujet, mais s'il y a une solution je suis preneur.

On doit bien avoir une fonction NbCar comme dans Word, dans Excel, ce serait plus simple. Tu regardes ça ?

Oui bien sûr, la fonction Nbcar renvoie le nombre de caractères y compris les espaces et le caractère de passage à la ligne (même s'il n'est pas reconnu, en principe, comme Chr(10)), mais avec ce nombre de caractères comment retrouver le nombre de lignes en fonction de l'endroit où se trouve le caractère de passage à la ligne suivante ?

Et cela peut se compliquer suivant que le format comprend le retour automatique à la ligne ou non.

Et là encore, il est très possible que la solution existe, donc à suivre et je vais suivre.

[ouskel'n'or]

Ok, Jacques_Jean, j'ai encore lu trop vite, chr(10) correspond au saut de ligne volontaire (Alt + Entrée)
Je suis donc d'accord avec toi si ce saut de ligne est provoqué par l'option renvoi à la ligne automatique.

Je nettoie

Oui bien sûr, la fonction Nbcar renvoie le nombre de caractères

Non, je pensais à autre chose (une fonction qui compte le nombre de fois qu'un caractère existe dans une chaîne) mais j'ai vérifié et apparemment ça n'existe pas

Bonne soirée