Imprime

[apdf1]

Bonjour

J'aimerais connaitre le code pour multiplier le nombre copies à imprimer via un Textbox sur un USF.
Ci joint mon fichier que seras certainement plus parlant.
Merci d'avance.

Cordialement
Max

 

[JCGL]

Re : Imprime

Bonjour à tous,

Peux-tu essayer avec :

Private Sub CommandButton1_Click()
For n = 0 To Nb
If ListBox1.Selected(n) = True Then
Sheets(ListBox1.List(n)).PrintOut Copies:=TextBox1.Value
End If
Next n
End Sub

A+ à tous

 

[apdf1]

Re : Imprime

Bonjour JCGL,

Je te remercie infiniment. Juste un petit détail si je n'abuse pas trop comment peut-ont faire pour obliger l'utilisateur a rentrer le nombre de copies dans le textbox ?

@+
Max

 

[JCGL]

Re : Imprime

Bonjour à tous,

Avec ceci peut-être :

Private Sub CommandButton1_Click()
For n = 0 To Nb

If TextBox1.Value = "" Then
MsgBox "Il faut renseigner le nombre de copie..."
Exit Sub
End If

If ListBox1.Selected(n) = True Then
Sheets(ListBox1.List(n)).PrintOut Copies:=TextBox1.Value
End If
Next n
End Sub

A + à tous

 

[apdf1]

Re : Imprime

Re

Je te remercie Beaucoup et te souhaite une bonne soirée

@+

Max