Adapter la hauteur d'une cellule avec retours à la ligne

Lone-wolf

XLDnaute Barbatruc
Bonjour à tous :)

Comme vous le savez, en écrivant un très long texte dans une cellule celle-ci s'agrandi au fur et à mesure. Pour parer à celà, voici le code pour l'adapter afin de ne voir qu'une seule ligne. Code à adapter selon le cas.

VB:
Dim deb As Byte, cel As range

deb = InStr(1, cel, ";")  'À remplacer par un point ou une virgule
       If deb = 1 Then cel = Left(cel, deb) & vbLf & Right(cel, Len(cel) - deb)
ActiveSheet.Rows(6).Height = 13.5
 

Discussions similaires

Statistiques des forums

Discussions
311 716
Messages
2 081 828
Membres
101 823
dernier inscrit
mohamed3s