Zone d'impression variable VBA

Salut à tous,

Je vous explique mon problème : je définis une zone d'impression variable sous VBA à partir d'un Userform. Seulement, quand je fais un apercu, la zone d'impression est toujours la feuille complète...

Je joint mon code, je ne sais pas si ça vient de là où si il faut modifier un paramètre d'Excel.

Merkii à tous par avance,

Private Sub CommandButton2_Click()

E = Sheets("PLANNING").Range("A65536").End(xlUp).Row

F = DEBUT.Value

Range(Cells(2, F * 7 + 1), Cells(E, F * 7 + 15)).Select

Sheets("PLANNING").PageSetup.PrintArea = Selection

With ActiveSheet.PageSetup

.CenterHorizontally = True

.CenterVertically = False

.Orientation = xlPortrait

.FitToPagesTall = False

End With

Unload Me

Sheets("PLANNING").Activate

End Sub

[/code]

Bonjour,

Essaie (non vérifié) :

Private Sub CommandButton2_Click()
E = Sheets("PLANNING").Range("A65536").End(xlUp).Row
F = DEBUT.Value
 Sheets("PLANNING").PageSetup.PrintArea =  Range(Cells(2, F * 7 + 1), Cells(E, F * 7 + 15)).Address
 With ActiveSheet.PageSetup
 .CenterHorizontally = True
 .CenterVertically = False
 .Orientation = xlPortrait
 .FitToPagesTall = False
 End With
 Unload Me
 Sheets("PLANNING").Activate
End Sub

Nota : On peut supposer que tous les Sheets("PLANNING")... et autres ActiveSheet sont inutiles (le USF étant censé être déclanché par cette feuille...

A+

Merci c'est impeccable !

Au plaisir