Macro a repeter automatique a chaque ligne
Résolu/Fermé
A voir également:
- Macro a repeter automatique a chaque ligne
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- Macro word - Guide
- Message automatique thunderbird - Guide
3 réponses
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
8 nov. 2010 à 17:46
bonjour,
tu parles d'un autre fichier mais on ne le voit pas dans ta macro!...
de feuille à feuille
si c'est dans le classeur "jaioublié.xls" qui doit être ouvert
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<
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
Modifié par michel_m le 9/11/2010 à 11:42
bonjour,
OK c'est + clair !
Michel
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
9 nov. 2010 à 11:14
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