OVH Cloud OVH Cloud

taille des lignes et des colonnes soit en mm

1 réponse
Avatar
Coco
Avec Excel J' aimerais que la taille des lignes et des colonnes soit en
mm.Existe-t-il un moyen.
Meci

1 réponse

Avatar
Rouch
Bonjour,

Comme déjà dis plus bas:

Largeur = à 10mm : 4,71
Hauteur = à 10 mm : 28,25


Sinon en macro:
Si tu cherche à avoir l'équivalnt de la largeur en point avec celle en
mm tu peux utilisez le code ci dessous.

Tu place
en C5: Le n° de la ligne ( Ou colonne que tu veux ajuster)
en C6: la largeur en mm

Lance la macro Largcol ou HautCol


Ensuite tu imprime le tout à 100%




'Set row height and column width in millimeters
'Set row height and column width in millimeters
'The macros below lets you set row heights and column widths using
millimeters as a scale:

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


Sub LargCol()
SetColumnWidthMM Sheets(1).Range("C5").Value,
Sheets(1).Range("C6").Value

End Sub

'This example macro shows how you can set the row height for row 3 and
the column width for column C to 3.5 cm:
Sub HautCol()
SetRowHeightMM Sheets(1).Range("C5").Value,
Sheets(1).Range("C6").Value
End Sub

@+



Avec Excel J' aimerais que la taille des lignes et des colonnes soit en
mm.Existe-t-il un moyen.
Meci