renvoyer à la ligne automatiquement ne fonctionne plus

[Macpoy]

Bonjour le forum,
comme annoncé dans l'intitulé, j'ai un problème de mise en page.
vous trouverez ci joint un classeur avec du concret pour voir et comprendre le PB.

merci d'avance.
@plus jacques

 

[Dugenou]

Re : renvoyer à la ligne automatiquement ne fonctionne plus

Bonjour,

le retour automatique fonctionne, mais comme tu as limité à une hauteur fixe, tu ne vois pas le texte qui est à la ligne. Essaye avec des séries de lettres identiques...

 

[MJ13]

Re : renvoyer à la ligne automatiquement ne fonctionne plus

Bonjour Jacques, Dugeneou

Tu peux essayer ce code à placer dans ta feuille.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(ActiveCell.Row - 1, ActiveCell.Column).EntireRow.AutoFit
End Sub

 

[Macpoy]

Re : renvoyer à la ligne automatiquement ne fonctionne plus

Re le forum,
Bonjour MJ13, Dugenou

mon cher Dugenou je me permet de légèrement vous contredire,
prenons un cas concret :
en B27 vous mettez ceci :
"ce texte est vraiment trop trop long pour tenir entièrement dans une cellule de 12,75 de hauteur."
si vous appuyez sur entrée, la cellule renvoie automatiquement à la ligne.
maintenant en faisant un clique droit sur le N° de la ligne 27 changez la hauteur de ligne et mettez la à 12.75.
si vous effacez le texte de la cellule b27 et que vous en inscrivez un autre aussi long
il n'y a pas de renvoie automatique. !!!

cher MJ13 merci pour cette réponse qui fonctionne à merveille.
ne reste plus qu'a l'adapter au classeur pour lequel j'ai bricolé la pièce jointe.

bonne journée
@plus jacques

 

[zorglubxp]

Re : renvoyer à la ligne automatiquement ne fonctionne plus

J'ai recopier cette Sub mais ça ne fonctionne sur mon fichier sous Excel 2010. A moins que j'ai raté quelque-chose :-(