impression automatique pour chaque ligne

[seb26000]

Bonjour

je souhaite imprimer en automatique une page pour chaque ligne présente dans l'onglet données.

Je m'explique, l'onglet "impression" permet de mettre en page les données présentes dans l'onglet "données"

Je souhaite lancer un automatique l'impression pour chaque ligne présente dans "données" qui seront mise en forme dans l'onglet "impression".

Le nombre de lignes dans "données" n'est pas constant.

J'aimerais avoir un bouton qui lorsqu'il est activé, lance les impressions de chaque "OT" (colonne A de l"onglet "données") mis en forme dans l'onglet "impression"

Ci joint le fichier pour exemple

Merci d'avance !!!

 

[youky(BJ)]

Re : impression automatique pour chaque ligne

Salut SEB,
Voici prépare du papier un seul tableau suffit.

 

[seb26000]

Re : impression automatique pour chaque ligne

Salut youky,


merci pour ton travail !! Il me reste plus qu'à mettre en forme le vrai fichier !! Concernant les codes :

For k = 2 To [A65000].End(3).Row
que signifie la commande end(3).row

Sheets("Impression").[C6] = Sheets("Données").Cells(k, 1)
Si k=2, c'est la cellule A2 qui est sélectionnée ? 1 représente la premiere colonne ? Donc c'est toujours A, non ?

Merci encore

 

[youky(BJ)]

Re : impression automatique pour chaque ligne

Re:
>>>[A65000].End(3).Row
le 3 signifie la direction
le 3=xlUp qui veut dire dans le sens du haut
donc on peux aussi écrire
[A65000].End(xlUp).Row.....cette ligne renvoie le N° de la derniere ligne utilisée.
existe (xldown) (xltoleft) (xltoright) (xlUp)

Pour ....Cells(k,1) .....k est la ligne, et 1 la colonne 1 soit col A
Un exemple:
tu veux écrire une donnée en plus en fin de la colonne A sans connaitre le dernier N° de ligne de cette colonne
Cells([A65000].End(xlUp).Row+1,1)="toto"
remarque le Row+1 pour passer à la ligne en dessous
cells(ligne,colonne)="bien pratique pour mettre des variables"
Bonne continuation en VBA ....c'est pas si dur que l'on pense

 

[seb26000]

Re : impression automatique pour chaque ligne

Merci encore !
C'est vraiment sympas !!
Bonne continuation !!
a+