Copier une ligne vers une autre sheet excel et ensuite vers l'imprimante

[beegees]

Bonjour tout le monde,

J'ai un fichier excel qui comprend deux feuilles.

J'aimerais copier la ligne A8:T8 vers la feuille "Relevé de notes" et ensuite envoyé cela vers l'imprimante.

Ensutie revenir à la feuille "Alphabétique" et aller à la ligne suivante (A9:T9) et faire la même chose et ainsi de suite jusqu'à la dernière ligne.

J'avais essayé ceci mais ça ne fonctionne pas :

Sub Macro1()
'

ActiveCell.Offset(0, 19).Select
Selection.Copy
Sheets("Relevé de notes").Select
Range("A14").Select
ActiveSheet.Paste
End Sub

ça ne fonctionne pas car ActiveCell.Offset(0, 19).Select sélectionne uniquement la 19e case et la colle dans la feuille "Relevé de notes".

Je met en attachment une feuille d'exemple qui vous aidera.

Je vous remercie beaucoup pour votre aide et je vous souhaîte un bon Dimache.

beegees

 

[john]

Re : Copier une ligne vers une autre sheet excel et ensuite vers l'imprimante

Salut,

Voilà une façon de faire, à toi d'arranger pour obtenir ce que tu veux.

Bonne fin de journée.

John

 

[beegees]

Re : Copier une ligne vers une autre sheet excel et ensuite vers l'imprimante

Salut John,

Merci pour ta réponse et pour le temps que tu y as consacré.

Ce que j'ai besoin, c'est l'impression d'une ligne par ligne.

Je sélectionne donc la première ligne, je la copie dans l'autre feuille, je l'imprime, je reviens dans la première feuille, je copie la seconde ligne, je retourne dans l'autre feuille où je colle les infos copiées (j'écrase donc vue que les données précédentes ont été envoyées vers l'imprimante).

Je vais analyser ton code et voir si je peux l'adapter .

Merci pour tout et pour cette bonne idée de bouton.

Bon fin de WE.

beegees