Affichage Incrementation impression decroissante VBA
saintromainn
Messages postés
2
Statut
Membre
-
saintromainn Messages postés 2 Statut Membre -
saintromainn Messages postés 2 Statut Membre -
Bonjour a tous,
je recherche la possibilite,lorsque j imprime un nombre de copies d une page excel, d imprimer sur chacune des impressions le nombre de l impression dans une cellule.
je voudrais que la premiere impression porte le nombre d impression indique et que les copies suivantes aient un numero d impression qui decroit a chaque impression...
Si possible, j aimerais aussi que le nombre d impression et la valeur la plus basse d im pression soit renseigne par l utilisateur.
j ai deja essaye d ecrire une macro :
Sub Imprimer()
Dim n As Variant
Dim beg As Variant
1 beg = InputBox("Printing from number :", "First label number")
2 n = InputBox("Number of copy :", "Print")
If n = "" Then Exit Sub
If Val(n) = 0 Then GoTo 1
For n = Val(n) To Val(beg) Step -1
If ActiveSheet.Name = "Internal label display" Then _
Sheets("Internal label display").[F34] = n
If ActiveSheet.Name = "External label display" Then _
Sheets("External label display").[P40] = n
ActiveSheet.PrintOut
Next
End Sub
mais sans grand succes..
Est-ce que quelqu'un a une idee pour m aider s'il vous plait ?
Romain
je recherche la possibilite,lorsque j imprime un nombre de copies d une page excel, d imprimer sur chacune des impressions le nombre de l impression dans une cellule.
je voudrais que la premiere impression porte le nombre d impression indique et que les copies suivantes aient un numero d impression qui decroit a chaque impression...
Si possible, j aimerais aussi que le nombre d impression et la valeur la plus basse d im pression soit renseigne par l utilisateur.
j ai deja essaye d ecrire une macro :
Sub Imprimer()
Dim n As Variant
Dim beg As Variant
1 beg = InputBox("Printing from number :", "First label number")
2 n = InputBox("Number of copy :", "Print")
If n = "" Then Exit Sub
If Val(n) = 0 Then GoTo 1
For n = Val(n) To Val(beg) Step -1
If ActiveSheet.Name = "Internal label display" Then _
Sheets("Internal label display").[F34] = n
If ActiveSheet.Name = "External label display" Then _
Sheets("External label display").[P40] = n
ActiveSheet.PrintOut
Next
End Sub
mais sans grand succes..
Est-ce que quelqu'un a une idee pour m aider s'il vous plait ?
Romain
1 réponse
-
Bonjour,
Essaie comme celaSub Imprimer()
Dim n As Variant
Dim beg As Variant
beg = InputBox("Printing from number :", "First label number")
n = InputBox("Number of copy :", "Print")
If IsNumeric(beg) And IsNumeric(n) And Val(beg) > 0 And Val(n) > 0 Then
For n = Val(beg) + Val(n) - 1 To Val(beg) Step -1
If ActiveSheet.Name = "Internal label display" Then
Sheets("Internal label display").[F34] = n
ElseIf ActiveSheet.Name = "External label display" Then
Sheets("External label display").[P40] = n
End If
ActiveSheet.PrintOut
Next
Else
MsgBox "Saisie incorrecte"
End If
End Sub
A+
