[Question bête] : imprimer des cases de 1.5 cm ?

Bonjour Vincent;

Sub TraceCases()
Application.ScreenUpdating = False
Workbooks.Add
Dim x As Byte, y As Byte
For x = 1 To 12
For y = 1 To 12
Cells(x, y).BorderAround Weight:=xlThin
Next y
Next x
Cells.ColumnWidth = SetColumnWidth(15)
Cells.RowHeight = Columns(1).Width
With ActiveSheet
.PageSetup.LeftMargin = Application.InchesToPoints(0.196850393700787)
.PageSetup.RightMargin = Application.InchesToPoints(0.196850393700787)
.PrintOut Copies:=1
End With
End Sub

Private Function SetColumnWidth(MM As Integer) As Double
Dim lr As Single
Application.ScreenUpdating = False
lr = Application.CentimetersToPoints(MM / 10)
While Columns(1).Width > lr
Columns(1).ColumnWidth = Columns(1).ColumnWidth - 0.1
Wend
While Columns(1).Width < lr
Columns(1).ColumnWidth = Columns(1).ColumnWidth + 0.1
Wend
SetColumnWidth = Columns(1).ColumnWidth
End Function

MP

"Vincent BENNER - PAGE UP" <vbenner@pageup.fr.invalid> a écrit dans le
message de news:c7t5st$cp3$1@news-reader2.wanadoo.fr...

Bonjour,

Est-ce que quelqu'un sait comment faire pour imprimer
des grilles de 12x12 avec des cases de 1.5 cm de large.


Merci,

Vincent BENNER

Bonjour et merci,

Je pensais qu'il était possible de faire ça sans VBA !

Vincent