Régler la hauteur de la ligne et la largeur de la colonne en millimètres à l’aide de VBA dans Microsoft Excel
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