Macro d'impression et menus déroulant

[ZeH]

Je voudrais utiliser cette macro mais dans le menu déroulant ne faire apparaître que les feuilles de mon choix, est-ce possible.

Merci par avance.

 

[@+Thierry]

Bonsoir Zeh, le Forum


Voici comment faire si par exemple tu ne veux afficher que les feuilles dont le nom commencent par un "F" et qui ne sont pas masquées :


Private Sub UserForm_Initialize()
    For i = 1 To ActiveWorkbook.Worksheets.Count
        If Left(Worksheets(i).Name, 1) = "F" Then
            If Worksheets(i).Visible = True Then
            ComboBox1.AddItem ActiveWorkbook.Worksheets(i).Name
            End If
        End If
    Next i
End Sub


Bonne Soirée
@+Thierry

(Second test du Prog de Sylvain Nicolas pour mise en page VBA => XLD)

 

[ZeH]

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.

 

[ZeH]

Ne chercher plus, j'ai fini par trouver:

Suppression de : If Worksheets(i).Visible = True Then

et placement du bouton d'impression dans un userform (suppression du bouton dans ma feuille d'accueil).


Merci et encore félicitations pour votre forum.