Impression avec Union

[denis-J]

Bonsoir à tous

Avec l'aide de Vb dans excel j'ai bien trouver comment selectionner plusieurs zone dans une feuille mais pour les imprimer c'est autre chose.
voir le code

Private Sub CmdImprim_Click()
Dim r1 As Range, r2 As Range, myMultiAreaRange As Range
Worksheets("feuil2").Activate
Set r1 = Range("a8:d30")
Set r2 = Range("ah8:au30")
Set myMultiAreaRange = Union(r1, r2)
myMultiAreaRange.Select

End Sub
quand je place sheets.printout il me copie tous, y a quelques chose qui m'échappe.

si quelqu'un a la soluce:
D'avance grand merci

@+ denis

 

[@Christophe@]

Bonsoir Denis

Sans avoir essayé, je crois que cela devrait marché

Selection.printout

@Christophe@

 

[Mytå]

Bonsoir le forum

Une autre methode qui pourait etre utiliser

Sub impression()
Range("B5:B13,D810,G11:G14,I7:I9").Select
Range("I7").Activate
ActiveSheet.PageSetup.PrintArea = "$B$5:$B$13,$D$8:$D$10,$G$11:$G$14,$I$7:$I$9"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Mytå

 

[denis-J]

bonsoir à tous

Merci a vous Myta et Christophe

entre temp j'ai touvé mais bien sur ça marche mais sur deux feuille differente y a t-il une possibilitée d'imprimer sur la même feuille?

D'avance merci
@+ denis

Private Sub CmdImprim_Click()
Dim r1 As Range, r2 As Range, myMultiAreaRange As Range
Worksheets("feuil2").Activate
Set r1 = Range("a8:d30")
Set r2 = Range("ah8:au30")
Set myMultiAreaRange = Union(r1, r2)
myMultiAreaRange.Select
Selection.PrintOut
End Sub