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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas