Imprime

Private Sub CommandButton1_Click()
For n = 0 To Nb
If ListBox1.Selected(n) = True Then
Sheets(ListBox1.List(n)).PrintOut Copies:=TextBox1.Value
End If
Next n
End Sub

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
For n = 0 To Nb

If TextBox1.Value = "" Then
MsgBox "Il faut renseigner le nombre de copie..."
Exit Sub
End If

If ListBox1.Selected(n) = True Then
Sheets(ListBox1.List(n)).PrintOut Copies:=TextBox1.Value
End If
Next n
End Sub

Cliquez pour agrandir...