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.
 

Roblochon

XLDnaute Accro
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas