Ajustement automatique hauteur ligne

Bonsoir à toutes et à tous,

je souhaiterai ajuster, via un code VBA, automatiquement la hauteur d'une ligne dont le texte se situe dans des cellules fusionnées

vous trouverez en pj un exemple de texte saisie en G200

merci par avance de vos conseils

chb44

bonsoir chb44

je vais te donner ce que j'utilise pour mon fichier de facturation quand le text est plus long que l'espace des cellules fusionnées,

a toi de voir si cela te correspond

 .Columns(4).ColumnWidth = LargeurCol
      With .Range("D" & lig, "H" & lig)
        .Font.Size = 14
        .Font.Name = "arial"
        .MergeCells = False
        .WrapText = True  'retour du texte à la ligne
        .EntireRow.AutoFit  'mettre la ligne en ajustement auto de la hauteur
        MaHauteur = .RowHeight  'voir quelle est la hauteur de la ligne une fois cet autofit fait
        .MergeCells = True  'refusionner

        '.VerticalAlignment = xlCenter
        .RowHeight = IIf(MaHauteur > 15, MaHauteur, 15)  'si la hauteur une fois autofit fait est inferieur à 15 je laisse 15 en minimum sinon hauteur de l'autofit (perso c'est la hauteur mini que je voulais
      End With
    End If

pascal

merci Pascal

par contre, le code tu le places dans la feuille ou tu crées un module ?

je pense qu'il doit manquer une partie du code car j'ai tenté de l'adapter à mon cas et cela ne fonctionne pas

merci de ton aide

re chb44

déja la première ligne est en trop,

ce morceau de code est derrière le bouton sur un usf qui envoie les données sur la feuille

il manque la variable lig

Dim lig As Integer

et sa valeur

lig = .Range("B65536").End(xlUp)(2).Row
    If lig < 19 Then lig = 19

tu changer 19 par le chiffre que tu veux

et aussi le niom de feuil

With sheets("facture")

Pascal