Imprimer feuilles

Salut Merlin,

Voici une suggestion.
Il te faut une commande sur ta feuille 1 pour lancer la UserForm :

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Sur la UserForm il y a un Label, une zone de liste "multiSelect", une commande "Imprimer" et une commande "Fermer".

A l'ouverture de l'USF, on remplit la liste avec les noms des différentes feuilles du classeur :

Private Sub UserForm_Activate()
Dim WS As Worksheet
For Each WS In Worksheets
ListBox1.AddItem WS.Name
Next
End Sub

Lorsque l'utilisateur a fait son choix, il clique sur "Imprimer". Il faut alors chercher les éléments sélectionnés dans la liste et donner l'ordre d'impression :

Private Sub CommandButton2_Click()
Dim I As Integer
For I = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(I) = True Then
Sheets(ListBox1.List(I)).PrintOut
End If
Next
End Sub

Enfin, refermer la UserForm :

Private Sub CommandButton1_Click()
Unload Me
End Sub

J'espère que cela pourra t'aider.
A+
LN

Salut Merlin, l'Amiral et le forum

Le fichier joint a déjà satisfait pas mal de pb

peut être saura-t-il te satisfaire.

Cordialement

Bernard