Macro a repeter automatique a chaque ligne

Résolu/Fermé

Janick - 8 nov. 2010 à 17:32
Janick - 9 nov. 2010 à 12:06

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:

Macro a repeter automatique a chaque ligne
Aller à la ligne excel - Guide
Hors ligne instagram - Guide
Vente en ligne particulier - Guide
Macro word - Guide
Message automatique thunderbird - Guide

3 réponses

Réponse 1 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
8 nov. 2010 à 17:46

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<

Janick
9 nov. 2010 à 11:14

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

Réponse 2 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 9/11/2010 à 11:42

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

Réponse 3 / 3

Janick
9 nov. 2010 à 12:06

Re bonjour Michel,

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

Bonne journée,
janick

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Chemin Logo du site de la Cité de l'espace

Statut « en ligne » alors que non

Aller à la ligne sur iPhone ?

Discussions similaires

Newsletters