Affichage Incrementation impression decroissante VBA
saintromainn
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
saintromainn Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
saintromainn Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Affichage Incrementation impression decroissante VBA
- Spouleur d'impression - Guide
- Impression livret a5 - Guide
- Affichage double ecran - Guide
- Windows 11 affichage classique - Guide
- Impression ecran samsung - Guide
1 réponse
Bonjour,
Essaie comme cela
A+
Essaie comme cela
Sub 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+
saintromainn
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
merci Gyrus!
