Brudy
XLDnaute Junior
Bonjour à tous !
J'ai un soucis pour automatiser une impression sous condition :
j'ai réalisé une première macro enregistrée qui est la base de ce que j'aimerais faire :
Selection colonne C:C > prendre la première donnée en C13, copier/coller dans ma zone Feuille!recapOR A7 > Imprimer la feuille, Ligne +1, copier la donnée en C14, coller en A7 > Imprimer, +1, si C15 vide stop, sinon copier C15, Coller en a7, imprimer, +1, si C16 vide alors stop... Etc Etc.
Je vous met des captures d'écran si ça peut vous aider dans le visuel. Mon principal soucis c'est de lui indiquer le +1, si vide stop sinon impression etc.
J'ai un soucis pour automatiser une impression sous condition :
j'ai réalisé une première macro enregistrée qui est la base de ce que j'aimerais faire :
Selection colonne C:C > prendre la première donnée en C13, copier/coller dans ma zone Feuille!recapOR A7 > Imprimer la feuille, Ligne +1, copier la donnée en C14, coller en A7 > Imprimer, +1, si C15 vide stop, sinon copier C15, Coller en a7, imprimer, +1, si C16 vide alors stop... Etc Etc.
Je vous met des captures d'écran si ça peut vous aider dans le visuel. Mon principal soucis c'est de lui indiquer le +1, si vide stop sinon impression etc.
CSS:
Sub macroimprim()
'
' macroimprim Macro
'
'
Range("C13").Select
Selection.Copy
Sheets(Array("Récap OR t", "Récap OR")).Select
Sheets("Récap OR").Activate
Range("A7").Select
ActiveSheet.Paste
ActiveWindow.View = xlPageBreakPreview
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets(Array("Récap OR t", "Récap OR")).Select
Sheets("Récap OR t").Activate
ActiveWindow.View = xlNormalView
Range("C14").Select
Selection.Copy
Range("D44").Select
Sheets(Array("Récap OR t", "Récap OR")).Select
Sheets("Récap OR").Activate
Range("A7").Select
ActiveSheet.Paste
ActiveWindow.View = xlPageBreakPreview
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.View = xlNormalView
Sheets(Array("Récap OR t", "Récap OR")).Select
Sheets("Récap OR t").Activate
Range("C15").Select
Selection.Copy
Sheets(Array("Récap OR t", "Récap OR")).Select
Sheets("Récap OR").Activate
Range("A7").Select
ActiveSheet.Paste
ActiveWindow.View = xlPageBreakPreview
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets(Array("Récap OR t", "Récap OR")).Select
Sheets("Récap OR t").Activate
ActiveWindow.View = xlNormalView
Range("C16").Select
Selection.Copy
Sheets(Array("Récap OR t", "Récap OR")).Select
Sheets("Récap OR").Activate
Range("A7").Select
ActiveSheet.Paste
ActiveWindow.View = xlPageBreakPreview
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.View = xlNormalView
Sheets(Array("Récap OR t", "Récap OR")).Select
Sheets("Récap OR t").Activate
End Sub