Copier/Coller + impression
Pat71
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
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
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
3 réponses
-
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 -
-
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")
