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