automatiser l'impression

[rac]

Bonjour,

Mon problème consiste à vouloir automatiser l'impression d'une feuille à partir de données(liste de noms) contenues dans une autre feuille sachant que ces feuilles sont reliées par la fonction recherchev.

D'avance merci

 

[G.David]

A chaud comme ça je te dirais de taper une macro qui te fasse tourner les noms
calcule la feuille à chaque boucle
et lance l'impression
ce doit etre réalisable
sub imprim()
sheets("feuil_liste").select
nb=range("B1").value 'dans B1 =nbval("c:c")
for t= 1 to nb' nb nombre de personnes ds ta liste
nom$=range("C" & t).value' la list eoccupant la colonne C
sheets("feuil_données").select
range("a2").value=nom$ 'la case A2 étant le critère de recherchev(A$2$;tableau,colonne;faux)
calculate 'pour mettre à jour la feuille
Range("B107136").Select ' B107136 étant la zone à imprimer
ActiveSheet.PageSetup.PrintArea = "$B$107:$s$136"
With ActiveSheet.PageSetup
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
next t
macro non testé tu serviras de cobaye
A+
G.David