imprimer de "debut" a "fin'

[Mattttttttttrix]

bonjour
jai un classeur que je veux complètement bloker pour empècher toute movaise manipulation

j'ai un bouton 'imprimer ' qui me permet d'imprimer n'importe quelle zone delimitée par les mots 'debut' et 'fin'

Sub DefPrintArea()
On Error Resume Next
Z1 = Cells.Find('debut').Address
Z2 = Cells.Find('fin').Address
ActiveSheet.PageSetup.PrintArea = Z1 & ':' & Z2
ActiveSheet.PrintOut Preview:=True
End Sub

bon pour moi cette macro me va
mais le classeur ne va pas servir qua moi et les gens qu'il l'utilise ne sont pas brancher informatique du tou!!

donc j'aimerai que quand j'appui sur le bouton un petit message apparaisse et dise ' selectioner la plage a imprimer' et que lutilisateur n'est qu'a selectionner avec la souris les cellules a impimer!!!

un petit message apparait en demandant ' vouler -vous imprimer cette zone' ...la zone serai en surbrillance ou en clignotement (je laisse libre choix a la personne qui veu bien maider pcq pour moi je trouve deja très compliquer)
et en clicant sur 'oui' ca imprime et en clicant sur 'non' ca imprime pas!
merci d'avance

 

[Laurent L]

Bonjour,

Si ça te convient...

Dim Plage As Range
On Error Resume Next
Set Plage = Application.InputBox('Sélectionnez la plage à imprimer', Type:=8)
On Error GoTo 0
If Plage Is Nothing Then Exit Sub
Application.Goto Plage
If MsgBox('Voulez-vous imprimer la plage sélectionnée ?', vbYesNo) = vbYes Then
   ActiveSheet.PageSetup.PrintArea = Plage.Address
   ActiveSheet.PrintOut preview:=True
End If

Cordialement,

Laurent

 

[mattttttttttrix]

MERCI beaucoup ca marche!!!!!!!!!!!!! :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: :woohoo: