De: Frédéric Objet: Re: Retour automatique à la ligne Date : samedi 22 janvier 2000 14:52 Requete initale de Frédéric, à laquelle il a répondu en collaboration avec Bernard : je n'ai pas trouvé le moyen de "récupérer" le nombre de lignes dans une cellule pour en déduire la hauteur d'affichage nécessaire Dans un module du classeur (ou de Perso.xls), recopier les 2 fonctions suivantes : function nLi(txt As String, largeur As Integer) ' nombre de lignes dans une cellule application.Volatile nLi = 1 if Len(txt) > largeur then nLi = Round(Len(txt) / largeur) end if end function function AdjustMergedAreaHeight(topLeftCell As range, MergedArea As range) if topLeftCell.Text = "" then AdjustMergedAreaHeight = 12.75 Else AdjustMergedAreaHeight = nLi(topLeftCell.Text, _ (MergedArea.MergeArea.width * 0.35) - (topLeftCell.Columnwidth * 0.35)) _ * 12.75 end if end function Ensuite, dans le classeur où la hauteur des lignes doit être ajusté automatiquement, utiliser la fonction AdjustMergedAreaHeight dans l'événement Change Private Sub Worksheet_Change(ByVal Target As range) Target.RowHeight = AdjustMergedAreaHeight(Target, selection) end Sub