cs_garagai
Messages postés5Date d'inscriptionjeudi 25 mars 2010StatutMembreDernière intervention 1 avril 2010
-
25 mars 2010 à 12:42
cs_garagai
Messages postés5Date d'inscriptionjeudi 25 mars 2010StatutMembreDernière intervention 1 avril 2010
-
1 avril 2010 à 16:45
Bonjour,
j'ai un tableau excell que je voudrais imprimer sur des feuilles séparées en prenant la première ligne systématiquement et une ligne différente pour chaque page.
Comment puis-je faire?
Quelles lignes de commandes puis-je taper sous VB?
Bonjour, à ta place j'écrirai une macro qui va créer un fichier excel avec autant de feuille que l'impression à effectuer (Première Feuille = premiere ligne + deuxieme ligne, Deuxieme feuille = premiere ligne + troisieme ligne, ...) et imprimer chaque feuille...Peut être pas le plus simple à faire, mais c'est une solution...
cs_garagai
Messages postés5Date d'inscriptionjeudi 25 mars 2010StatutMembreDernière intervention 1 avril 2010 25 mars 2010 à 17:56
J'ai tenté cette macro mais elle bugue:
Sub Macro1()
Range("A1:L2,A4:L4").Select
Dim i As Integer
For i = 4 To 34
Range("A" & i).Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$2,$A & $i:$L & $i"
Selection.PrintOut Copies:=1, Collate:=True
Next i
End Sub
Je pense que c'est mon $A&$i qui ne vont pas.
Savez vous comment il faut les écrire?
C'est sur que si c'est à faire une seule fois, la macro n'est pas forcement une solution
Pour ta macro, je pense que ceci fonctionnera mieux:
Sub Macro1()
Range("A1:L2,A4:L4").Select
Dim i As Integer
For i = 4 To 34
Range("A" & i).Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$2,$A$" & i & ":$L$ " & i
Selection.PrintOut Copies:=1, Collate:=True
Next i
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_garagai
Messages postés5Date d'inscriptionjeudi 25 mars 2010StatutMembreDernière intervention 1 avril 2010 29 mars 2010 à 13:51
Merci pour votre aide;
j'ai fait quelques corrections mais il y a toujours un problème sur la même ligne.
Sub tirage()
' tirage Macro
Dim i As Integer
For i = 2 To 34
Range("A1:O1,A36:O36").Select
Range("A" & i).Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$1,$A$" & i & ":$O$ " & i
Selection.PrintOut Copies:=1, Collate:=True
Next i