J'ai créé un reçu de format 1/4 lettre et je l'ai copié 4 fois dans une seule feuille de travail (pour économiser du papier) et je souhaite qu'il soit imprimé en continu de 001 à 100. Chaque reçu doit avoir un numéro de série unique 001 002 ... 100 ..
Comment puis-je mettre des nombres séquentiels dans 4 cellules différentes, disons A1, C1, E1 et G1, mes cellules portant les numéros 001 002 003 004, et augmenter chaque nombre après chaque impression?
J'ai également besoin de la possibilité de spécifier le numéro de départ.
J'ai trouvé cela dans un site Web, alors ce pourrait être un début:
Sub IncrementPrint()
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
On Error Resume Next
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:", "Title")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation, "Title"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCount
ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut
Next
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub
GoTo LInput
n'est pas une pratique de codage, mais cela peut quand même être fonctionnel.)