Macro a repeter automatique a chaque ligne

Résolu
Janick -  
 Janick -
Bonjour,
J'ai un problème pour activer une macro .
je souhaiterais que cette macro s'effectue automatiquement en copiant la cellule
A1 dans un autre fichier, puis la cellule A2 etc, jusqu'à la cellule A100
voici ma VBA mais elle ne fonctionne pas, elle s'arrête à la premiere copie de cellule A2
sans passer à la cellule A3

Sheets("form au format").Select
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
Range("A2").Select
Selection.Copy
Sheets("FICHE CLIENT").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
For i = 1 To [A65536].End(xlUp).Row
Next i
End Sub

merci si vous avez une aide

3 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour,

    tu parles d'un autre fichier mais on ne le voit pas dans ta macro!...

    de feuille à feuille 
    Sheets("FICHE CLIENT").Range("B5:B104") = Sheets("form au format").Range("A2:A100").Value


    si c'est dans le classeur "jaioublié.xls" qui doit être ouvert 
    workbooks("jaioublié.xls").Sheets("FICHE CLIENT").Range("B5:B104") = Sheets("form au format").Range("A2:A100").Value<
    0
    1. Janick
       
      Bonjour Michel,
      Merci pour ta réponse. je suis novice dans les macros et peut être me suis-je mal exprimée.

      Voilà, j'ai un fichier composé de plusieurs onglets
      dans l'onglet (form au format') je copie la cellule A2 que je colle dans la cellule B5 du fichier
      (fiche client) - ce fichier comporte des formules et toutes les données souhaitées s'affichent sous forme d'une fiche mise en page.
      Je lance l'impression de cette fiche client.

      J'ai donc enregistré la macro qui copie dans (form au format) la cellule A2 pour la coller dans le second fichier en B5 et que l'impression s'éxécute, puis copie de A3 et collage dans B5, puis impression etc...
      Le fichier(form au format comporte environ 200 lignes)
      je souhaiterais que cette macro copie automatiquement chaque cellule suivante, soit A4, puis A5, puis A6 toujours dans B5 et qu'à chaque changement la fiche client s'imprime.
      sinon je dois donc faire 200 fois ce copier/coller.

      voici la macro, que dois je rajouter pour automatiser ce copier/coller puis impression
      jusqu'à la fin du fichier.

      Sheets("form au format").Select
      Range("A2").Select
      Selection.Copy
      Sheets("FICHE CLIENT").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
      Application.CutCopyMode = False
      ActiveWindow.SelectedSheets.PrintOut Copies:=1
      Sheets("form au format").Select
      Range("A3").Select
      Selection.Copy
      Sheets("FICHE CLIENT").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
      Application.CutCopyMode = False
      ActiveWindow.SelectedSheets.PrintOut Copies:=1

      Merci d'avance,
      Cdt,
      Janick
      0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour,
    OK c'est + clair ! 

    Sub imprimer_fiche() 
Dim cptr As Byte 

With Sheets("FICHE CLIENT") 
    For cptr = 2 To 100 
        .Range("B5") = Sheets("form au format").Cells(cptr, 1) 
        .PrintOut 
    Next 
End With 

End Sub


    Michel
    0
  3. Janick
     
    Re bonjour Michel,

    Mille merci, ça fonctionne parfaitement bien.
    Toutes les impressions se font automatiquement.

    Bonne journée,
    janick
    0

Discussions similaires

Calc retour à la ligne du texte (ou pas
tsing -
tsing -

6 réponses