Copier/Coller + impression

Question

Bonjour, 

Je voudrais créer une macro qui fasse le travaille suivant:
1/ Copier A2 de la feuille2 dans A7 de la feuille3
2/ imprimmer 2 fois la feuille3
3/ Copier A3 de la feuille2 dans A7 de la feuille3
4/ imprimmer 2 fois la feuille3
5/ etc...

en sachant que le nombre de rangé dans la feuille2 est aléatoire.

Merci pour votre aide

Configuration: Windows 7 / Internet Explorer 9.0

Patrice33740 · Answer

Sub CopierA3versA7etImprimer()
Dim d°L As Long
Dim n°L As Long

With Worksheets(2)
  d°L = .Cells(.Rows.Count, "A").End(xlUp).Row
  For n°L = 3 To d°L
    .Cells(n°L, "A").Copy Destination:=Worksheets(3).Cells(n°L + 4, "A")
    Worksheets(3).PrintOut copies:=2
  Next n°L
End With

End Sub

Pat71 · Answer

Merci Patrice pour ton aide, 
mais le "coller" doit toujours se faire dans A7 de la Feuil3

Patrice33740 · Answer

Remplace :
    .Cells(n°L, "A").Copy Destination:=Worksheets(3).Cells(n°L + 4, "A")Par :
    .Cells(n°L, "A").Copy Destination:=Worksheets(3).Cells(7, "A")

Copier/Coller + impression

3 réponses

Discussions similaires

Newsletters