Bonjour à tous,
J'ai trouvé sur le forum une macro qui me va bien :
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
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