Imprimer meme page avec 1 cellule differente

[Thom]

Bonjour, je voudrais imprimer un tableau qui se trouve sur la feuille 1, sur cette feuille se trouve le nom de quelqu'un en F3.
Je souhaiterais connaitre la procedure pour imprimer ce tableau avec une liste de nom sans avoir a changé et imprimé à chaque fois.
donc une procédure pour lancer l'impression de 30 noms différents en modifiant le nom en F3 en une seule fois.
Merci d'avance

 

[guitarde]

Bonjour,

La macro suivante pourrait faire ce que tu veux, juste à nommer la plage où est la liste de nom : ListeDeNom

Sub test()

Application.Goto Reference:='ListeDeNom'
v1strow = Selection.Row
v1stCol = Selection.Column
vnbligne = Selection.Rows.Count

For x = v1strow To v1strow + vnbligne - 1
Range('F3').Value = Cells(x, v1stCol)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next x

End Sub


Salutations
Eric

 

[thom]

Salut Eric, merci pour ta réponse, par contre il a fallu que je supprime ce qui suit apres printout pour que ça fonctionne.
Donc seulement ligne :
ActiveWindow.Selectedsheets.printout

Encore merci