XL 2010 Résolu . Autofit augmenté

poipoi · 27 Janvier 2023

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 · 27 Janvier 2023

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 · 27 Janvier 2023

Bonsoir,

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

VB:

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

job75 · 27 Janvier 2023

Bonsoir poipoi, Deadpool_CC,

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

VB:

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 · 27 Janvier 2023

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

XL 2010 Résolu . Autofit augmenté

poipoi

XLDnaute Occasionnel

poipoi

XLDnaute Occasionnel

Deadpool_CC

XLDnaute Accro

job75

XLDnaute Barbatruc

poipoi

XLDnaute Occasionnel

Discussions similaires