Impression

bonsoir,

j'essai de bricoler un code pour imprimer certaine feuilles du classeur et avoir le nombre que je veux par un textbox.

je voudrais avoir votre avis sur celui ci

n'ayant pas d'imprimante a la maison je ne suis pas sur de mon coup ...

je pense que les "ténors" d'exel pratique veront au premier coup d'oeil si je suis à coté de la plaque

merci de votre aide

Private Sub CommandButton2_Click()

Monnombrecopy = TextBox1.Value

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(ListBox1.List(i)).PrintOut Copies:=Monnombrecopy ', Collate:=True ' 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

Bonjour yoda,

A priori, la syntaxe est bonne. Si tu as une imprimante PDF, tu peux quand même faire le test.