Imprimer x copies

Bonsoir, toutes et tous.

Ne cherchez plus :

******************************************
Sub imprime() 'autant de fois qu'indiqué en colonne H

'Variables
Dim c As Range
Dim i As Byte 'i recalculé avec recherchev sur la feuille à imprimer

Application.ScreenUpdating = False 'remettre à true en fin de macro
Application.DisplayAlerts = False 'inutile de remettre à true

For Each c In Sheets("Validation").Range("B3:B100")
If c.Value = "" Then End
c.Copy
Sheets("Impression").Activate
Sheets("Impression").Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Calculate
i = Sheets("Impression").Range("I8").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=i
Next c
End
Sheets("Validation").Select
Application.ScreenUpdating = True
End Sub

le fait.

Bonne nuit aux couche-tard.

--
Bien amicordialement,
P. Bastard
******************************************

Bonsoir à toutes et tous.

En feuille1(Base) , des infos en ligne sur plusieurs colonnes
En feuille 2 (Imprime), un imprimé à remplir avec les infos de
chacune des lignes, et à imprimer en X exemplaires.
Pour remplir l'imprimé, pas de soucis, je recopie en feuille 2 chaque
cellule de la colonne 1 de la feuille 1, et un recherchev suffit
largement pour renseigner les différents champs.

En colonne 17 de chaque ligne (feuil1), le nombre d'exemplaires à
imprimer.
... Et c'est là que je coince : la....men....ta....ble....ment.

Un p'tit coup de main, siouplait ?

D'avance, merci.