Bonjour,
Je fais cela avec des chiffres de ventes : L'idée globale est la suivante:
Dans ton formulaire, tu crée des liaisons vers la première ligne de données de ta base, ce qui donne des formules du genre : =base!$C$1 dans chaque cellule à remplir de ton formulaire. En fait, le numéro de colonne reste dans chaque cellule mais le numéro de ligne doit changer pour chaque nouveau formulaire. Tu enregistre une macro dans laquelle tu remplaces tous les $1 par des $2 puis tu imprimes le formulaire. Il ne te reste alors qu'a réécrire la macro avec une variable qui s'incrémente à chaque boucle. Ne pas oublier de remettre le chiffre à 1 en fin de macro.
Voici un exemple où la première série de données est en ligne 5:
Sub Impression_serie()
Dim ca, cd, maxi As Integer
maxi = 35
cd = 5
ca = cd + 1
ActiveWindow.SelectedSheets.PrintOut
While cd < maxi
Cells.Replace What:="$" + CStr(cd), Replacement:="$" + CStr(ca)
ActiveWindow.SelectedSheets.PrintOut
cd = ca
ca = cd + 1
Wend
Cells.Replace What:="$" + CStr(cd), Replacement:="$5"
End Sub
Cordialement