macro choix pour imprimer feuilles

Question

Bonjour,

Je recherche une macro me permettant d'afficher la liste des feuilles contenues dans un classeur et pouvoir selectionner que quelques unes d'entre elles

merci d'avance pour votre aide.

eriiic · Answer

Bonsoir,

je te donne juste le début pour te guider.
Tu te crées un formulaire ou tu mets une listbox et un bouton ok.
Sur l'activation du formulaire :
Private Sub UserForm_Activate()
    Dim i As Integer
    UserForm1.ListBox1.Clear ' vider la listbox
    UserForm1.ListBox1.MultiSelect = fmMultiSelectMulti ' autoriser sélection multiple
    For i = 1 To Worksheets.Count 'pour chaque feuille
        UserForm1.ListBox1.AddItem Worksheets(i).Name ' ajouter son nom à la listbox
    Next i
End Sub

sur le boutonn ok :
Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 0 To UserForm1.ListBox1.ListCount - 1 ' pour chaque item de la listbox
       If UserForm1.ListBox1.Selected(i) = True Then ' si sélectionné
             ' ton traitement
             MsgBox ("Feuille " & UserForm1.ListBox1.List(i) & " sélectionnée") 'afficher le nom de la feuille
       End If
    Next i
    UserForm1.Hide
End Sub

Dans un module :

Sub test()
    UserForm1.Show 'afficher le formulaire
End Sub

De ton classeur tu lances la macro test, tu as toutes tes feuilles du classeur que tu peux sélectionner à la souris.

Ceci n'est qu'un exemple, à toi de broder autour en recherchant dans l'aide les propriétés d'une listbox.
le fichier de test : http://www.cijoint.fr/cjlink.php?file=cj200803/cij7011705997235.xls

eric

Macro choix pour imprimer feuilles

1 réponse

Votre réponse

Discussions similaires

Newsletters