XL 2010 Résolu . Autofit augmenté

[poipoi]

Bonjour
pour faciliter la lecture, je souhaiterai que 'l'autofit" de la colonne I soit "augmenté", comme s'il y avait un saut de ligne avant le début du texte et un saut de ligne à la fin.

j'ai bien essayé d'adapter des bouts de codes trouvés dans le forum mais je n'y arrive pas... Avez-vous un bout de solution? D'avance merci

 

[poipoi]

j'ai oublié de donner le code lié à ce qui me semble être l'autofit "normal":
Private Sub Worksheet_Change(ByVal Target As Range)
Target.EntireRow.AutoFit
End Sub

désolé mais je ne suis pas un pro, ça se voit

 

[Deadpool_CC]

Bonsoir,

Essaye avec cela (ajout d'une hauteur fixe à la hauteur 'autofit' et centrage verticale de la cellule.

    Target.EntireRow.AutoFit
    Target.RowHeight = Target.RowHeight + 30
    Target.VerticalAlignment = xlCenter

 

[job75]

Bonsoir poipoi, Deadpool_CC,

Placez cette macro dans le code de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim h!
Set Target = Intersect(Target.EntireRow, UsedRange.EntireRow)
If Target Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each Target In Target.Rows 'si entrées ou effacements multiples
    Target.WrapText = False 'pas de renvoi à la ligne
    Target.AutoFit
    h = Target.RowHeight 'mémorise la hauteur
    Target.WrapText = True 'renvoi à la ligne
    Target.AutoFit
    Target.RowHeight = Target.RowHeight + 2 * h
    Target.VerticalAlignment = xlCenter 'centrage vertical
Next
End Sub

A+

 

[poipoi]

Bonsoir Deadpool_CC, Job75
C'est génial!!
Un grand merci à vous