impression de feuilles

Question

bonjour,

j'aimerais que kelkun m'aide svp, je voudrais pouvoir g&#233;rer avec un bouton l'impression des feiuilles de mon classeur, en fait j'aimerais faire un pgr qui d&#233;tecte ttes les feuilles du classeur puis apr&#232;s il y a un userform qui apparait avec ttes les feuilles pr&#233;sente et je peux cocher les feuilles que je veux imprimer 

voila jsai pa si c possible, ou sinon donner moi une autre solution
mais aider svp

merci
salut

jpleroisse · Answer

Voici un exemple, peut&#234;tre correspond t'il &#224; ce que tu veux faire ?
Tu places une ListBox sur un UserForm.
Tu cr&#233;es une macro dans ta feuille , qui appelle le UserForm ,du genre:

Sub Appeler()
UserForm1.Show
End Sub

Le code dans le UserForm

Option Explicit
Public OriginalSheet As Object


Private Sub ListBox1_Click()
Sheets(ListBox1.Value).Activate
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Application.Dialogs(xlDialogPrint).Show
End Sub

Private Sub UserForm_Activate()
Dim ws
For Each ws In Worksheets
   ListBox1.AddItem ws.Name
   ListBox1.ListIndex = 0
Next ws
End Sub

jpleroisse

Impression de feuilles

1 réponse

Discussions similaires