XL 2016 Impression d'une zone à délimiter

[luke3300]

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

 

[Staple1600]

Bonjour à tous

Un exemple en passant par Application.InpuBox

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

 

[luke3300]

Et bien Staple1600, je n'ai qu'une chose à dire ... Bravo! 🙂 Et surtout merci 1000 fois.
Il fonctionne nickel.
Très bon après-midi. Maintenant je vais siester car la nuit fût courte 😉😉😉