[MEDIALYS]

Bonjour à tous,

Je souhaite lancer des impressions selon la formule ci-après :
- dans la "combobox" on sélectionne le nombre de copies souhaitées (par exemple 20) et l'édition se fait en 20 exemplaires mais en affichant dans une cellule XL prédéfinie (par exemple en C4), sur la première impression le nombre 1, sur la seconde impression le nombre 2 etc...

Merci par avance

MEDIALYS

[SergiO]

Bonjour MEDIALYS,

Voici un code à tester :

Sub Imprimer()

Dim x As Single

Dim copie As Single

copie = InputBox("Nb de copies :")

For x = 1 To copie Step 1

Range("c4").Value = x

ActiveWindow.SelectedSheets.PrintOut

Next x

End Sub

@+

[MEDIALYS]

Bonjour SERGIO,
Merci beaucoup cela fonctionne parfaitement.
@+

[MEDIALYS]

Re-bonjour,
J'ai encore une petite question : la numérotaion ne débute pas forcément à 1.
Elle peut débuter à 10 puis s'éditer en nombres croissants jusqu'à 20 par exemple.

Merci d'avance pour votre aide.

MEDIALYS

[SergiO]

Bonjour,

Une possibilité pas testée :

Sub Imprimer()

Dim x As Single

Dim debut as single

Dim copie As Single

debut = InputBox("La numérotation démarre à :")

copie = InputBox("Nb de copies :") 

For x = debut To copie Step 1

Range("c4").Value = x

ActiveWindow.SelectedSheets.PrintOut

Next x

End Sub

@+

[MEDIALYS]

Bonjour SERGIO,
Cela fonctionne à merveille.
Merci pour tout.
@+