XL 2016 Zone d'impression et mise en page

[don julio]

Bonjour,
Je cherche a automatiser une impression pour que chaque bloc de cellule soit imprimé sur une page A4 en pleine page.
l'exemple en pièce jointe sera je l'espère parlant 😅

Le nombre de bloc est variable en fonction des jours.

Merci de votre aide.

 

[Phil69970]

Bonjour @don julio

l'exemple en pièce jointe sera je l'espère parlant

Pas trop car il manque le texte (anonymiser bien sur) et combien de "bloc" maximum peut-il avoir ?

 

[don julio]

Bonjour @don julio



Pas trop car il manque le texte (anonymiser bien sur) et combien de "bloc" maximum peut-il avoir ?

Bonjour,
Merci du retour et désolé de ne pas etre très clair
ci-joint un nouveau modèle.
pour le nombre de bloc nous pouvons en avoir 53 au maximum
merci

 

[don julio]

Bonjour,
Je cherche a automatiser une impression pour que chaque bloc de cellule soit imprimé sur une page A4 en pleine page.
l'exemple en pièce jointe sera je l'espère parlant 😅

Le nombre de bloc est variable en fonction des jours.

Merci de votre aide.

J'ai ma réponse avec ce code:
Sub PrintPagesBasedOnMergedCells()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(1)
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

Dim startRow As Long
startRow = 1
Dim i As Long
Dim endColumn As Long

For i = 1 To ws.UsedRange.Columns.Count
If ws.Cells(25, i).MergeCells Then
If ws.Cells(25, i).Address = ws.Cells(25, i).MergeArea.Cells(1, 1).Address Then
Dim mergedRange As Range
Set mergedRange = ws.Cells(25, i).MergeArea
endColumn = mergedRange.Columns(mergedRange.Columns.Count).Column

ws.PageSetup.PrintArea = ws.Range(ws.Cells(1, i), ws.Cells(lastRow, endColumn)).Address
ws.PrintPreview
End If
End If
Next i
End Sub

Bonne jounée

 

[Phil69970]

@don julio

Je te propose ce fichier

Avec ta solution si tu as 53 blocs tu prévisualises 53 fois pas top..... 😵
Avec ma solution toutes les pages sont visualisé en 1 seule fois 😉

Edit : Avec 53 blocs
Dans ta version tu visualises/imprimes 53 fois une page
Dans ma version je visualise/imprime 1 fois 53 pages
Tu vois la différence ..... il y a en une plus logique que l'autre sans compter les 53 risques de plantage 😉

Merci de ton retour