Discussion :

[Lacypr]

Bonsoir / bonjour le forum,

toute la problématique est dans le titre : je ne parviens pas à écrire une procédure pour compter le nombre de sauts de ligne AUTOMATIQUES dans le contenu d'une cellule.

Je précise bien AUTOMATOQUE car j'y arrive avec les sauts de ligne manuels mais pas les automatiques (avec les autos, le chr(10) est inexistant dans la chaîne).

Si une âme charitable dotée de bases solides en VBA pouvait trouver la solution ce serait génial

[joe.levrai]

Bonjour,


cela va dépendre de la police utilisée, de la taille de la police, et de l'ajustement (ou non) de la hauteur de ligne.

Donc beaucoup de paramètres à gérer.

L'exemple le plus simple, c'est la police et taille par défaut (Calibri 11)

Si la ligne est correctement ajustée en hauteur, chaque ligne dans la cellule sera de de valeur 15

Ainsi :

Code :

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

1
2
3
4
Sub toto()
    ActiveCell.Rows.AutoFit ' on ajuste la ligne
    MsgBox ActiveCell.Rows.Height / 15  ' 1 ligne = 15
End Sub

[Lacypr]

Bonjour,

Merci pour la réponse! Effectivement s'il n'y a que ça. Il va falloir que j'adapte ma police au même principe alors (Trébuchet MS).

Merci encore