Impression incrémentée

[JOZZ]

Bonjour,
J'aimerai afficher en F2 le Nom/Prénom et en F4 la Société de la feuille 'Noms' sur la feuille 'Pointage',et imprimer une feuille de pointage pour chaque personne de la base.
D'avance Merci pour votre aide.
Ci-joint mon fichier. [file name=Mabase.zip size=3165]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Mabase.zip[/file]

 

[Davidc57]

une petite macro s'impose :


sheets('Noms').select

 

[Davidc57]

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

 

[Davidc57]

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+

 

[Charly2]

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

A+

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

 

[JOZZ]

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