Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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