UP.
On ma donner l'astuce pour 3 cartons. Par contre maintenant j'aimerais en mettre 24. Soit 6 en longeur 3 en largeur.
j'ai essayer de modifier cette forume :
Sub PrintGrid()
Dim Tablo As Variant, z As Range, i%, j%, k%
k = (Worksheets("Cartons").Range("M1").Value * 3) - 8
Worksheets("Cartons").Activate
j = 1
For i = 1 To k Step 9
Tablo = Worksheets(2).Range("A" & i & ":I" & i + 2)
Range(Cells(2, 1), Cells(4, 9)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i + 3 & ":I" & i + 5)
Range(Cells(8, 1), Cells(10, 9)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i + 6 & ":I" & i + 8)
Range(Cells(14, 1), Cells(16, 9)) = Tablo
Tablo = Clear
Range("I5").Value = j
ActiveWindow.SelectedSheets.PrintPreview
j = j + 3
Next
End Sub
mais cela ne marche pas. Pouvez vous m'aider ?