Sur plusieurs feuilles Excel (7 repr=E9sentant chaque jour de la
semaine), je transf=E8re des donn=E9es provenant d'une huiti=E8me feuille.
Une fois ces donn=E9es transf=E9r=E9es, je voudrais pouvoir les imprimer:
voici comment cela se pr=E9sente:
Lors du transfer, sur la ligne 1 de chaque page, il y a explication des
colonnes (Nom, adresse, montant etc..)... ensuite, =E0 chaque 5 lignes,
j'en ins=E8re deux qui sont vides, jusqu'=E0 ce qu'il n'y ait plus de
donn=E9es
=E0 entrer.
Donc, en somme, je voudrais pouvoir imprimer la plage A1:W6, puis
A7:W13, puis A14:W20, jusqu'=E0 ce que la page n'ait plus rien. Le
montant des lignes =E0 imprimer varie sans cesse.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonjour,
Donc, en somme, je voudrais pouvoir imprimer la plage A1:W6, puis A7:W13, puis A14:W20, jusqu'à ce que la page n'ait plus rien. Le montant des lignes à imprimer varie sans cesse.
Quelque chose (non testé et à adapter) : sub test() arr = array("Feuil1","Feuil2") 'à compléter for each sht in arr with sheets(sht) 'dernière ligne remplie de la zone [A:W] derlig = .[A:W].Find("*", [A:W].Item(1), , , , xlPrevious).Row 'de la ligne 1 à la dernière par pas de 7 for a = 1 to derlig step 7 .range("A" & a &":W" & a+6).printpreview 'pour voir ' .range("A" & a &":W" & a+6).printout copies:=1 'pour imprimer next a end with next sht end sub
@+ FxM
Bonjour à tous,
Sur plusieurs feuilles Excel (7 représentant chaque jour de la semaine), je transfère des données provenant d'une huitième feuille.
Une fois ces données transférées, je voudrais pouvoir les imprimer: voici comment cela se présente:
Lors du transfer, sur la ligne 1 de chaque page, il y a explication des colonnes (Nom, adresse, montant etc..)... ensuite, à chaque 5 lignes, j'en insère deux qui sont vides, jusqu'à ce qu'il n'y ait plus de données à entrer.
Donc, en somme, je voudrais pouvoir imprimer la plage A1:W6, puis A7:W13, puis A14:W20, jusqu'à ce que la page n'ait plus rien. Le montant des lignes à imprimer varie sans cesse.
Auriez-vous une petite idée ?
Merci
Denys
Bonjour,
Donc, en somme, je voudrais pouvoir imprimer la plage A1:W6, puis
A7:W13, puis A14:W20, jusqu'à ce que la page n'ait plus rien. Le
montant des lignes à imprimer varie sans cesse.
Quelque chose (non testé et à adapter) :
sub test()
arr = array("Feuil1","Feuil2") 'à compléter
for each sht in arr
with sheets(sht)
'dernière ligne remplie de la zone [A:W]
derlig = .[A:W].Find("*", [A:W].Item(1), , , , xlPrevious).Row
'de la ligne 1 à la dernière par pas de 7
for a = 1 to derlig step 7
.range("A" & a &":W" & a+6).printpreview 'pour voir
' .range("A" & a &":W" & a+6).printout copies:=1 'pour imprimer
next a
end with
next sht
end sub
@+
FxM
Bonjour à tous,
Sur plusieurs feuilles Excel (7 représentant chaque jour de la
semaine), je transfère des données provenant d'une huitième feuille.
Une fois ces données transférées, je voudrais pouvoir les imprimer:
voici comment cela se présente:
Lors du transfer, sur la ligne 1 de chaque page, il y a explication des
colonnes (Nom, adresse, montant etc..)... ensuite, à chaque 5 lignes,
j'en insère deux qui sont vides, jusqu'à ce qu'il n'y ait plus de
données
à entrer.
Donc, en somme, je voudrais pouvoir imprimer la plage A1:W6, puis
A7:W13, puis A14:W20, jusqu'à ce que la page n'ait plus rien. Le
montant des lignes à imprimer varie sans cesse.
Donc, en somme, je voudrais pouvoir imprimer la plage A1:W6, puis A7:W13, puis A14:W20, jusqu'à ce que la page n'ait plus rien. Le montant des lignes à imprimer varie sans cesse.
Quelque chose (non testé et à adapter) : sub test() arr = array("Feuil1","Feuil2") 'à compléter for each sht in arr with sheets(sht) 'dernière ligne remplie de la zone [A:W] derlig = .[A:W].Find("*", [A:W].Item(1), , , , xlPrevious).Row 'de la ligne 1 à la dernière par pas de 7 for a = 1 to derlig step 7 .range("A" & a &":W" & a+6).printpreview 'pour voir ' .range("A" & a &":W" & a+6).printout copies:=1 'pour imprimer next a end with next sht end sub
@+ FxM
Bonjour à tous,
Sur plusieurs feuilles Excel (7 représentant chaque jour de la semaine), je transfère des données provenant d'une huitième feuille.
Une fois ces données transférées, je voudrais pouvoir les imprimer: voici comment cela se présente:
Lors du transfer, sur la ligne 1 de chaque page, il y a explication des colonnes (Nom, adresse, montant etc..)... ensuite, à chaque 5 lignes, j'en insère deux qui sont vides, jusqu'à ce qu'il n'y ait plus de données à entrer.
Donc, en somme, je voudrais pouvoir imprimer la plage A1:W6, puis A7:W13, puis A14:W20, jusqu'à ce que la page n'ait plus rien. Le montant des lignes à imprimer varie sans cesse.
