Impression

[Luc]

Bonsoir le forum,
Je cale sur une macro, pouvez vous m'aider sur l'exemple ci joint.
Merci de votre aide. [file name=Classeur1_20050903222309.zip size=3886]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050903222309.zip[/file]

 

[Bernard_XLD]

Bonjour Luc, le forum

rapidement

A+

Sub imprime()
Dim Tab_imp(1 To 2) As Range
Set Tab_imp(1) = Range('A6:J18')
Set Tab_imp(2) = Range('A21:J33')
On Error GoTo Fin
ActiveSheet.PageSetup.PrintArea = Tab_imp(Range('B3').Value).Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Exit Sub
Fin:
MsgBox 'la valeur de B3 n'est pas correcte', vbOKOnly + vbCritical
End Sub