XL 2016 VBA, ajustement des hauteurs de lignes

[cardi]

Bonjour à tous,

J'ai trouvé sur le forum une macro qui me va bien :

Option Explicit
Sub Hauteur()
  Dim R As Range
  Application.ScreenUpdating = False
    With Selection
    .Rows.AutoFit
    .WrapText = True
    End With
  For Each R In Selection
    If Rows(R.Row).RowHeight < 22.5 Then Rows(R.Row).RowHeight = 22.5
  Next
End Sub

Cela permet d'ajuster la hauteur des lignes automatiquement et me mettre un minimum de 22.5

Par contre, ce code fonctionne seulement sur les lignes sélectionnés manuellement.

J'aimerai que quand j'active la macro, cela ajuste toutes les lignes de 1 à 500 automatiquement,

Merci d'avance pour votre aide.

Cardi

 

[frangy]

Bonjour,

Option Explicit
Sub Hauteur()
Dim Ligne As Range
    Application.ScreenUpdating = False
    With ActiveSheet
        For Each Ligne In .Rows("1:500")
            Ligne.AutoFit
            Ligne.WrapText = True
            Ligne.RowHeight = Application.Max(Ligne.RowHeight, 22.5)
        Next
    End With
    Application.ScreenUpdating = True
End Sub

Cordialement.

 

[Hasco]

Bonjour,

Ceci devrait le faire.

Sub Hauteur()
    Application.ScreenUpdating = False
    With Rows("1:500")
        .Rows.AutoFit
        .WrapText = True
        .RowHeight = 22.5
    End With
    Application.ScreenUpdating = True
End Sub

Si toutes les lignes n'ont pas la même hauteur il faudra rajouter la boucle for.

Bon après-midi

 

[cardi]

C'est parfait, merci beaucoup !