VBA boucle pour impression en masse

Bonjour,

Je cherche une solution pour imprimer en masse une page de garde. Dans mon fichier j'ai un onglet "Table" qui va contenir une centaine de véhicule, j'ai besoin d'imprimer la page de garde avec en cellule B31 la marque, en B33 le modèle et en C35 l'immatriculation. J'ai déjà utilisé un For Each pour faire cela mais sur une valeur, je ne vois pas comment faire pour les 3.

Est-ce que quelqu'un pourrait corriger ma macro ?

Par avance merci !

Bonjour

Essai ça :

Sub BOUCLE()

Dim i&

    For i = 2 To Application.Max(2, Range("A" & Rows.Count).End(xlUp).Row)
            Sheets("Page de garde").Range("B31") = Range("A" & i)
            Sheets("Page de garde").Range("B33") = Range("B" & i)
            Sheets("Page de garde").Range("C35") = Range("C" & i)
            Sheets("Page de garde").PrintOut Copies:=1, Collate:=True, _
                    IgnorePrintAreas:=False
    Next
End Sub

Bye !

Merci je teste demain, mais petite question, il ne manque rien après le Dim 1& ?

Bonjour à tous,

Une autre proposition

Bonne continuation

Chris

Bonsoir,

le "&" d'imprimerie signifie e abrégé : As Long

Voyez ceci, une capture du cour VBA de ce site :

@ bientôt

LouReeD

Bonjour,

Je viens d'essayer la solution de gmb en ne mettant que 4 lignes, les 2 premières pages sortent correctement avec la marque, le modèle et l'immat mais pas les 2 suivantes !?

Désolé je n'ai pas essayer la solution de CHRIS1945 car je ne comprend pas le code lol.

Si quelqu'un à la solution....

Merci CHRIS cela fonctionne, j'ai juste modifié pour que la date ne se mette pas et que la page imprimée soit bien la page de garde et non la page active !