XL 2016 Impression d'une zone à délimiter

luke3300

XLDnaute Impliqué
Bonjour le forum,

Serait-il possible en VBA d'ouvrir une boîte de dialogue dans le fichier ci-dessous et qui me demande la plage des cellules à imprimer?
Par exemple, si je voulais imprimer uniquement la plage de cellule qui va de D2 à H9 ...
Maintenant ce doit pouvoir être extensible donc l'idéal c'est que j'aie une messagebox qui s'ouvre et me demande de sélectionner la 1ère cellule de la plage ainsi que la dernière.
Que sur base du choix, cela se limite à l'impression de la zone demandée (hormis la mise en page présélectionnée bien sur). :)

J'ai recherché en vain sur le forum ...

Merci d'avance et bon appétit
 

Pièces jointes

  • TEST PRINT.xlsx
    8.5 KB · Affichages: 41

Staple1600

XLDnaute Barbatruc
Bonjour à tous

Un exemple en passant par Application.InpuBox
VB:
Sub a()
Dim Zoneprint As Range
On Error Resume Next
Set Zoneprint = Application.InputBox("Choisir la zone d'impression", "Impression", , , , , , 8)
If Err = 0 Then
ActiveSheet.PageSetup.PrintArea = Zoneprint.Address
ActiveSheet.PrintPreview 'affiche l'apercu avant impression
'ActiveSheet.PrintOut ' décommenter cette ligne, pour imprimer
Else
MsgBox "Annulation de l'impression", vbInformation, "Avertissement"
End If
On Error GoTo 0
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 938
Messages
2 093 759
Membres
105 813
dernier inscrit
Lievin Nkulu