XL 2019 saut de page lors d'un renvoi pdf

[ccia]

Bonjour le forum,
je cherche avec la version 2019

A renvoyé une feuille vers un fichier pdf.
Détecter en colonne A si une cellule fusionnée chevauche un saut de page si c'est le cas déplace automatiquement ces cellules fusionnées problématiques sur la page suivante sans laisser de grands espaces vides.

dans le fichier joint voir module 3

merci d'avance

 

[kiki29]

Salut,si curieux,à télécharger puis consulter/adapter à ton contexte : Liste Contributions PDF

 

[job75]

Bonjour ccia, kiki29,

Affectez cette macro au bouton :

Sub ExportPDF()
Dim n&
With ActiveSheet
    .PageSetup.PrintArea = "A:D"
    .ResetAllPageBreaks
    While n < .HPageBreaks.Count
        n = n + 1
        If .HPageBreaks(n).Location.MergeCells Then .HPageBreaks.Add Before:=.HPageBreaks(n).Location.MergeArea(1).EntireRow
    Wend
    .ExportAsFixedFormat xlTypePDF, Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 4) & "pdf"
End With
End Sub

A+

 

[ccia]

Bonjour ccia, kiki29,

Affectez cette macro au bouton :

Sub ExportPDF()
Dim n&
With ActiveSheet
    .PageSetup.PrintArea = "A:D"
    .ResetAllPageBreaks
    While n < .HPageBreaks.Count
        n = n + 1
        If .HPageBreaks(n).Location.MergeCells Then .HPageBreaks.Add Before:=.HPageBreaks(n).Location.MergeArea(1).EntireRow
    Wend
End With
End Sub

A+

Bonjour ccia, kiki29,

Affectez cette macro au bouton :

Sub ExportPDF()
Dim n&
With ActiveSheet
    .PageSetup.PrintArea = "A:D"
    .ResetAllPageBreaks
    While n < .HPageBreaks.Count
        n = n + 1
        If .HPageBreaks(n).Location.MergeCells Then .HPageBreaks.Add Before:=.HPageBreaks(n).Location.MergeArea(1).EntireRow
    Wend
End With
End Sub

A+

Bonjour Job75

j'ai rajouter le code export et ca fonctionne très bien (voir fichier joint)
merci beaucoup pour votre aide

 

[job75]

Oui j'avais oublié le code export, je l'ai rajouté au post #3.

 

[AtTheOne]

Bonjour à toutes et à tous,
Bonjour @ccia
Juste une petite remarque : c'est le post #3 de @job75 que tu dois marquer comme solution et non pas ton post #4 😉
À bientôt