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


A voir également:

3 réponses

Réponse 1 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
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
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
Réponse 3 / 3
Janick
 
Re bonjour Michel,

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

Bonne journée,
janick
0

Discussions similaires

Durée d'une diapositive animée
bibibibi99 -
bibibibi99 -

2 réponses
Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses