1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| '
' copie Macro
' Copie de la feuille de tri dans la page impression et impression
'
' Touche de raccourci du clavier: Ctrl+q
'
Dim Zone As Range
Range("A23").Select
Selection.Copy
Sheets("impression").Select
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Feuille de tri").Select
'Sheets("impression").PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
End Sub |
Partager