Impression incrémentée

D

Davidc57

XLDnaute Occasionnel

• 15 Mars 2006

• #2

une petite macro s'impose :


sheets('Noms').select

 

Vote positif 0 Vote négatif

D

Davidc57

XLDnaute Occasionnel

• 15 Mars 2006

• #3

une petite macro s'impose :


sheets('Noms').select

for i = 2 to range('A1').end(xldown).row
nom = range('A'&i)
sheets('Pointage').select


next i

 

Vote positif 0 Vote négatif

D

Davidc57

XLDnaute Occasionnel

• 15 Mars 2006

• #4

je suis nouveau membre, désolé j'ai quelques pb d'utilisation ....


une petite macro s'impose :


sheets('Noms').select

for i = 2 to range('A1').end(xldown).row

nom = range('A'&i)
nom = range('B'&i)
sheets('Pointage').select
range('F2') = nom
range('F4') = societe
sheets('Pointage').printout

next i


Attention au règlage du PageSetup et ca devrait marcher, a+

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 15 Mars 2006

• #5

Bonjour JOZZ et Davidc57, bonjour à toutes et à tous

Un exemple par macro dans le fichier joint.

[file name=JOZZ_Impression.zip size=10002]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/JOZZ_Impression.zip[/file]

Et le code de la macro :

Option Explicit

Sub ImprimerFeuillesPointage()
'
Dim Cell As Range
'
  Application.ScreenUpdating = False
  With Sheets('Noms')
    For Each Cell In .Range('A2:A' & .Range('A65536').End(xlUp).Row)
      Range('F2') = Cell
      Range('F4') = Cell.Offset(0, 1)
      ActiveSheet.PrintOut
    Next Cell
  End With
  Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

A+

Message édité par: Charly2, à: 15/03/2006 06:59

 

Pièces jointes

• JOZZ_Impression.zip

  9.8 KB · Affichages: 25

Vote positif 0 Vote négatif

J

JOZZ

XLDnaute Junior

• 15 Mars 2006

• #6

Bonjour Charly2 et Davidc57 et tout le forum,
:woohoo:
Merci Charly2 pour la macro, c'est exactement ce que je voulais.
Et merci à Davidc57 pour sa participation.
Et que vive Excel-downloads.

RESOLU

 

Vote positif 0 Vote négatif