Macro hauteur de lignes

[isa44]

Bonsoir le forum ,
quelqu'un a t il une macro pour règler les hauteurs de lignes à 25 , mais si le texte contenu dans une cellule est supérieur à 25 il faudrait ajuster cette hauteur au texte ?

 

[Banzai64]

Re : Macro hauteur de lignes

Bonjour

Pour mettre à la hauteur voulue

  Rows(5).RowHeight = 20

Pour ajuster la hauteur au contenu

  Rows(5).AutoFit

Bonne soirée

 

[isa44]

Re : Macro hauteur de lignes

Bonjour , en fait je voudrais la hauteur minimum à 25 et un ajustement "Autofit"+2 pour les lignes dont la hauteur 25 serait trop petite.

 

[pierrejean]

Re : Macro hauteur de lignes

Bonjour isa44

Salut Banzai

A partir des codes de BanZai

Rows(5).AutoFit
Rows(5).RowHeight = Rows(5).RowHeight + 2
If Rows(5).RowHeight < 25 Then Rows(5).RowHeight = 25

 

[isa44]

Re : Macro hauteur de lignes

Bonjour et merci à tous ,
Voici ma macro finale qui réalise une mise en forme rapide

Sub form()
Dim lig As Integer, plage As Range

Application.ScreenUpdating = False

Application.Calculation = xlManual ' accélère l'exécution
Application.DisplayAlerts = False




For lig = 1 To 100
With Range(Cells(lig, "A"), Cells(lig, "P"))
'si la ligne n'est pas vide on l'unit à plage
If Application.CountA(.Cells) Then _
Set plage = Union(IIf(plage Is Nothing, .Cells, plage), .Cells)
End With

Range(Cells(lig, "M"), Cells(lig, "P")).Select 'fusionne MNOP
Selection.Merge


Selection.EntireRow.AutoFit ' hauteur ligne automatique
Selection.EntireRow.RowHeight = Selection.EntireRow.RowHeight + 10 ' + 10 pixel
If Selection.EntireRow.RowHeight < 25 Then Selection.EntireRow.RowHeight = 25 ' hauteur de ligne 25 mini



Next

'efface la MFC et les bordures
With Range("A1😛100")
.FormatConditions.Delete
.Borders(xlLeft).LineStyle = xlNone
.Borders(xlRight).LineStyle = xlNone
.Borders(xlTop).LineStyle = xlNone
.Borders(xlBottom).LineStyle = xlNone
'.Interior.ColorIndex = 43
End With

If plage Is Nothing Then Exit Sub 'si tout est vide...

With plage

'crée les bordures
.Borders(xlLeft).LineStyle = xlContinuous
.Borders(xlRight).LineStyle = xlContinuous
.Borders(xlTop).LineStyle = xlContinuous
.Borders(xlBottom).LineStyle = xlContinuous
'.Interior.ColorIndex = 43
.HorizontalAlignment = xlLeft 'alignement texte
.VerticalAlignment = xlCenter
.Locked = False 'protection cellule
.FormulaHidden = False

'MFC 1ère condition
.FormatConditions.Add Type:=xlExpression, Formula1:="=CELLULE(""row"")=LIGNE()"
With .FormatConditions(1)
.Font.Bold = True
.Font.Italic = False
.Font.ColorIndex = 3
.Interior.ColorIndex = 6
End With

'MFC 2ème condition
.FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(LIGNE();2)=0"
.FormatConditions(2).Interior.ColorIndex = 34

'MFC 3ème condition
.FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(LIGNE();1)=0"
.FormatConditions(3).Interior.ColorIndex = 36

End With



Application.Calculation = xlAutomatic
Application.DisplayAlerts = True

End Sub

 

[klin89]

Bonsoir isa44,

Si tu repasses par là, simplifie les lignes ci-dessous en utilisant la méthode BorderAround.
Voir la syntaxe dans l'aide.

.../...
.Borders(xlLeft).LineStyle = xlNone
.Borders(xlRight).LineStyle = xlNone
.Borders(xlTop).LineStyle = xlNone
.Borders(xlBottom).LineStyle = xlNone
.../...

Klin89

 

[isa44]

Re : Re: Macro hauteur de lignes

Bonjour , jai essayé ceci :

With Range("A1😛100")
.FormatConditions.Delete
.BorderAround.LineStyle = xlNone
End With

J'ai erreur d'exécution '424' objet requis

Que dois je modifier ?

 

[JCGL]

Re : Macro hauteur de lignes

Bonjour à tous,

Peux-tu essayer avec :

With Range("A1😛100")
.FormatConditions.Delete
.Borders.LineStyle = xlNone
End With

A+ à tous

 

[isa44]

Re : Macro hauteur de lignes

Merci JCGL , cela fonctionne et raccorci bien le code

 

[Sarmat31]

Bonjour Je déterre ce poste qui date mais j'ai essayé sans succès, dans mon code j'ai (sur excel 2016) :

'met en forme les cellules descriptions pour que tout le texte soit lisible

Rows("11:26").Select
Selection.EntireRow.AutoFit ' hauteur ligne automatique
Selection.EntireRow.RowHeight = Selection.EntireRow.RowHeight + 10 ' + 10 pixel
If Selection.EntireRow.RowHeight < 39 Then Selection.EntireRow.RowHeight = 39 ' hauteur de ligne 39 mini

Si je fais un test pas à pas, il me fait bien mes lignes adaptées à ce qu'il y a dans les cellules et si elles sont vides il met bien le mini, puis, il ne fait pas ensuite la taille des lignes +10, ni si elles qui sont inférieures à 39, les mettre à 39 mini.
Après plusieurs tests je ne comprends pas qu'ai-je loupé ?
Merci de vos éclairages.