Sélection à imprimer

[Phil]

Bonjour,
Je recherche une macro permettant d'imprimer toujours le meme nombre de cellules, quelque soit la cellule active.
Exemple :
Si ma cellule active est A1, comment imprimer la sélection de 4 colonnes sur 10 lignes.
Si ma cellule active est en V30, je vopudrais toujours imprimer une sélection de 4 colonnes sur 10 lignes.
merci de me faire profiter de vos talents.
Phil.

 

[piep14]

Salut, tu créés une macro avec ceci dedans :

Sub Imprimer()

Sheets('Feuil1').Range('A1:D10').PrintOut

End Sub

 

[chris]

Bonjour
Sub test()
a = ActiveCell.Address
b = ActiveCell.Offset(9, 3).Address
Range(a & ':' & b).PrintOut
End Sub

Ou plus concis

Sub test()
Range(ActiveCell.Address & ':' & ActiveCell.Offset(9, 3).Address).PrintOut
End Sub