Letterbox
bonjour,
un probleme avec ma box
dans malistbox je voudrais imprimer seulement les feuilles que je sélectionne, et avec le code que j'ais bidouiller cela imprime toute les feuilles où il y'a quelque chose a imprimer
quelqu'un peux m'éclairer sur mon problème
Private Sub CommandButton2_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é
Sheets.PrintOut
MsgBox ("Feuille " & UserForm1.ListBox1.List(i) & " sélectionnée") 'afficher le nom de la feuille
' Sheets.PrintPreview
End If
Next i
UserForm1.Hide
End Sub
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
cordialement
merci
je t'ai déranger pour quelque chose de peu palpitant pour toi !!
merci encore
Bonsoir
Désolé de te contredire mais si je réponds à un problème, c'est que j'y trouve un intérêt et que j'ai une solution
Bonne soirée