Merci Thierry c'est bien ce qque je voulais, mais 2 petites choses me donne encore du soucis:
Voici le code avec tes corrections:
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrint).Show
For i = 1 To TextBox1.Value
ActiveWorkbook.Worksheets(ComboBox1.Text).PrintOut
Next i
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
For i = 1 To ActiveWorkbook.Worksheets.Count
If Left(Worksheets(i).Name, 1) = "B" Then
If Worksheets(i).Visible = True Then
ComboBox1.AddItem ActiveWorkbook.Worksheets(i).Name
End If
End If
Next i
End Sub
Je m'explique, lors de l'impression la feuille commençant par "b" (bilan annuel) est la seule affichée et s'imprime correctement, mais s'imprime également le bouton d'impression se trouvant sur ma feuille nommée "accueil" et une feuille vierge d'impression est éjectée de l'imprimante?
La seconde chose qui me donne du soucis, "bilan annuel" devra être cachée, est-ce possible?
Merci encore pour votre aide.