XL 2013 Nombre de copies à imprimer (résolu)

[Cougar]

Bonjour le forum,

À l'aide d'un userform, je demande le nombre de copies d'étiquette qui doit être imprimées. Comme il y a 3 étiquettes par feuille, il faut donc diviser la quantité par 3 ce qui donnera le nombre de feuilles à imprimer. Donc, exemple Copies:=4/3 ce qui donnera 2 feuilles à imprimer pour obtenir les 4 étiquettes.

Comment écrire le code pour que cela fonctionne ? Créer une variable pour ensuite Copies:=var ?

Merci de votre aide.

 

[dg62]

Bonjour cougar
Variable Fcopies à passer à la Sub d'impression

Sub nbcopies()

Dim nbcop As Integer
Dim reste As Integer
Dim Fcopies As Integer
nbcop = CInt(TextBox1.Value)
reste = nbcop Mod 3
If reste = 0 Then
    Fcopies = nbcop/3
Else
   Fcopies = fix(nbcop/3) + 1
 
End If

End Sub

j'avais oublié de diviser

 

[Cougar]

Bonjour le forum, dg62,

C'est parfait.

Merci beaucoup