Re : "+1" dans une cellule à chaque impression, impressions enchaînées
Bonsoir,
Pour choisir les valeurs :
Sub essai()
Matrice = Array(1, 2, 4, 5, 6, 7, 8, 10, 14)
For Each X In Matrice
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("I2") = X
Next
End Sub
Pour boucler 200 fois :
Sub essai2()
For i = 1 To 200
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("I2") = i
Next
End Sub