XL 2016 VBA, ajustement des hauteurs de lignes

cardi

XLDnaute Junior
Bonjour à tous,

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

VB:
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

XLDnaute Occasionnel
Bonjour,

VB:
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

XLDnaute Barbatruc
Repose en paix
Bonjour,

Ceci devrait le faire.
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG