[E2003] Zone d'impression

Version imprimable

Bonsoir,
Je sèche pour terminer le code ci-dessous...:oops:
Le but étant de définir comme zone d'impression la sélection de cellules opérée avec la souris...
Un petit coup de main serait le bienvenu !
Code:

1 2 3 4 5 6 7 Sub Zone_Impression_Plage_Souris() Dim Plage As Range Set Plage = Application.InputBox(prompt:="Selectionner la plage souhaitée ", Type:=8) ' Hum, hum... Quelle instruction utiliser pour définir comme zone d'impression la sélection réalisée dynamiquement 'avec la souris ? End Sub

Bonsoir.

Tu peux essayer

Code:

1
2
3
4
5
6
7
8
9
Sub Zone_Impression_Plage_Souris()
Dim Plage As Range
 
Set Plage = Application.InputBox(prompt:="Selectionner la plage souhaitée ", Type:=8)
Plage.Worksheet.PageSetup.PrintArea = Plage.Address
 
 
Set Plage = Nothing
End Sub

Cordialement,

PGZ

Bonsoir,

Essaye ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Sub Zone_Impression_Plage_Souris()
Dim Plage As Range
 
Set Plage = Application.InputBox(prompt:="Selectionner la plage souhaitée ", Type:=8)
Plage.Worksheet.PageSetup.PrintArea = Plage.Address
 
ActiveSheet.PageSetup.PrintArea = Plage.Address
 
Set Plage = Nothing
End Sub

Edit: Mince, grillé de 2 min :)

16/12/2008, 18h42
Ipéfix

Rhoo..je n'étais vraiment pas en forme cet après midi...
En tout cas, merci Messieurs :D