Auriez-vous une idée ?
Je gére des compteurs d'eau pour une commune, dans Excel j'ai créé une
feuille paramétres avec les taux et bases, dans une autre feuille j'ai la
liste de tous les compteurs avec les nom des l'habitants sur chaque ligne,
c'est la que je rentre les infos de consommation de l'année.
Je voudrais d'un clic que les factures soient éditées toutes les unes aprés
les autres, mais comme il y en a + de 500 à faire, je me demandé si une
seule feuille pourrait reprendre chaque ligne aprés chaque sortie, (feuille
d'une facture unique) afin d'éviter d'en créer 500 l'une à la suite de la
précédente.
For Each c In Sheets("Relevé").Range("B3:B1002") 'à modifier si plus de 1000 comptes If c.Value = "" Then End c.Copy Sheets("Impression").Activate Sheets("Impression").Range("I3").Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Calculate i = Sheets("Impression").Range("I5").Value ActiveWindow.SelectedSheets.PrintOut Copies:=i Next c End Sheets("Relevé").Select Application.ScreenUpdating = True End Sub
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
Auriez-vous une idée ? Je gére des compteurs d'eau pour une commune, dans Excel j'ai créé une feuille paramétres avec les taux et bases, dans une autre feuille j'ai la liste de tous les compteurs avec les nom des l'habitants sur chaque ligne, c'est la que je rentre les infos de consommation de l'année.
Je voudrais d'un clic que les factures soient éditées toutes les unes aprés les autres, mais comme il y en a + de 500 à faire, je me demandé si une seule feuille pourrait reprendre chaque ligne aprés chaque sortie, (feuille d'une facture unique) afin d'éviter d'en créer 500 l'une à la suite de la précédente.
Merci d'avance A moins d'une autre idée.
Bonjour, *John*
Un exemple ici, pour un publipostge sur Excel, sans passer par Word :
http://cjoint.com/?itbvGbLuBl
For Each c In Sheets("Relevé").Range("B3:B1002") 'à modifier si plus de 1000
comptes
If c.Value = "" Then End
c.Copy
Sheets("Impression").Activate
Sheets("Impression").Range("I3").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Calculate
i = Sheets("Impression").Range("I5").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=i
Next c
End
Sheets("Relevé").Select
Application.ScreenUpdating = True
End Sub
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
Auriez-vous une idée ?
Je gére des compteurs d'eau pour une commune, dans Excel j'ai créé une
feuille paramétres avec les taux et bases, dans une autre feuille
j'ai la liste de tous les compteurs avec les nom des l'habitants sur
chaque ligne, c'est la que je rentre les infos de consommation de
l'année.
Je voudrais d'un clic que les factures soient éditées toutes les unes
aprés les autres, mais comme il y en a + de 500 à faire, je me
demandé si une seule feuille pourrait reprendre chaque ligne aprés
chaque sortie, (feuille d'une facture unique) afin d'éviter d'en
créer 500 l'une à la suite de la précédente.
For Each c In Sheets("Relevé").Range("B3:B1002") 'à modifier si plus de 1000 comptes If c.Value = "" Then End c.Copy Sheets("Impression").Activate Sheets("Impression").Range("I3").Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Calculate i = Sheets("Impression").Range("I5").Value ActiveWindow.SelectedSheets.PrintOut Copies:=i Next c End Sheets("Relevé").Select Application.ScreenUpdating = True End Sub
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
Auriez-vous une idée ? Je gére des compteurs d'eau pour une commune, dans Excel j'ai créé une feuille paramétres avec les taux et bases, dans une autre feuille j'ai la liste de tous les compteurs avec les nom des l'habitants sur chaque ligne, c'est la que je rentre les infos de consommation de l'année.
Je voudrais d'un clic que les factures soient éditées toutes les unes aprés les autres, mais comme il y en a + de 500 à faire, je me demandé si une seule feuille pourrait reprendre chaque ligne aprés chaque sortie, (feuille d'une facture unique) afin d'éviter d'en créer 500 l'une à la suite de la précédente.
Merci d'avance A moins d'une autre idée.
Francois L
A ma décharge, c'est pas facile quand on n'en a jamais fait.... (on se justifie comme on peut)
Re cousin,
te absolvo diront les spécialistes du latin de cuisine du forum...
Le site de Circé est à Word ce qu'Excelabo est à Excel même s'il est loin de la qualité des oeuvres de Misange d'un point de vue esthétique, facilité de recherche, classement, etc.
Bon Dimanche venteux !
-- François L
A ma décharge, c'est pas facile quand on n'en a jamais fait....
(on se justifie comme on peut)
Re cousin,
te absolvo diront les spécialistes du latin de cuisine du forum...
Le site de Circé est à Word ce qu'Excelabo est à Excel même s'il est
loin de la qualité des oeuvres de Misange d'un point de vue esthétique,
facilité de recherche, classement, etc.
A ma décharge, c'est pas facile quand on n'en a jamais fait.... (on se justifie comme on peut)
Re cousin,
te absolvo diront les spécialistes du latin de cuisine du forum...
Le site de Circé est à Word ce qu'Excelabo est à Excel même s'il est loin de la qualité des oeuvres de Misange d'un point de vue esthétique, facilité de recherche, classement, etc.
Bon Dimanche venteux !
-- François L
jps
et toc, un scud, que dis-je un scud, une torpille dans la...marina, baie des misanges non te absolvo, françois L comme lanceur de... jps
"Francois L" a écrit dans le message de news:
A ma décharge, c'est pas facile quand on n'en a jamais fait.... (on se justifie comme on peut)
Re cousin,
te absolvo diront les spécialistes du latin de cuisine du forum...
Le site de Circé est à Word ce qu'Excelabo est à Excel même s'il est loin de la qualité des oeuvres de Misange d'un point de vue esthétique, facilité de recherche, classement, etc.
Bon Dimanche venteux !
-- François L
et toc, un scud, que dis-je un scud, une torpille dans la...marina, baie des
misanges
non te absolvo, françois L comme lanceur de...
jps
"Francois L" <francois@noadress.fr.invalid> a écrit dans le message de news:
O8ednwi4HHA.2108@TK2MSFTNGP02.phx.gbl...
A ma décharge, c'est pas facile quand on n'en a jamais fait....
(on se justifie comme on peut)
Re cousin,
te absolvo diront les spécialistes du latin de cuisine du forum...
Le site de Circé est à Word ce qu'Excelabo est à Excel même s'il est loin
de la qualité des oeuvres de Misange d'un point de vue esthétique,
facilité de recherche, classement, etc.
et toc, un scud, que dis-je un scud, une torpille dans la...marina, baie des misanges non te absolvo, françois L comme lanceur de... jps
"Francois L" a écrit dans le message de news:
A ma décharge, c'est pas facile quand on n'en a jamais fait.... (on se justifie comme on peut)
Re cousin,
te absolvo diront les spécialistes du latin de cuisine du forum...
Le site de Circé est à Word ce qu'Excelabo est à Excel même s'il est loin de la qualité des oeuvres de Misange d'un point de vue esthétique, facilité de recherche, classement, etc.
Bon Dimanche venteux !
-- François L
Francois L
et toc, un scud, que dis-je un scud, une torpille dans la...marina, baie des misanges non te absolvo, françois L comme lanceur de... jps
Bonjour Président,
Joli et tant pis ...
:-)
-- François L
et toc, un scud, que dis-je un scud, une torpille dans la...marina, baie des
misanges
non te absolvo, françois L comme lanceur de...
jps
