Définir la hauteur de ligne et la largeur de colonne en millimètres

Les macros ci-dessous vous permettent de définir les hauteurs de ligne et les largeurs de colonne en utilisant les millimètres comme échelle:

Sub SetColumnWidthMM(ColNo As Long, mmWidth As Integer)

' changes the column width to mmWidth

Dim w As Single

If ColNo < 1 Or ColNo > 255 Then Exit Sub

Application.ScreenUpdating = False

w = Application.CentimetersToPoints(mmWidth / 10)

While Columns(ColNo + 1).Left - Columns(ColNo).Left - 0.1 > w

Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth - 0.1

Wend

While Columns(ColNo + 1).Left - Columns(ColNo).Left + 0.1 < w

Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth + 0.1

Wend

End Sub

Sub SetRowHeightMM(RowNo As Long, mmHeight As Integer)

' changes the row height to mmHeight

If RowNo < 1 Or RowNo > 65536 Then Exit Sub

Rows(RowNo).RowHeight = Application.CentimetersToPoints(mmHeight / 10)

End Sub

Cet exemple de macro montre comment vous pouvez définir la hauteur de ligne pour la ligne 3 et la largeur de colonne pour la colonne C sur 3,5 cm:

Sub ChangeWidthAndHeight()

SetColumnWidthMM 3, 35

SetRowHeightMM 3, 35

End Sub