re imp
cette macro m'imprime qu'une zone (la derniere) je comprend pas pourquoi
je cherche aussi a faire une mise en page en vba merci de votre aide
pour la mise en page quatre cellule sur une page
Sub Imp
With Sheets("feuil3")
If .Range("C1").Value = .Range("E4") Then
ActiveSheet.PageSetup.PrintArea = "$F$3:$H$15"
elseIf .Range("C1").Value = .Range("J4") Then
ActiveSheet.PageSetup.PrintArea = "$j$3:$L$15"
'elseif....etc
End If
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
|