besoin d'aide programation VBA pour insérer un saut de page en fonction du contenu d'une cellule

[obelix77]

Bonjour,

Je souhaite qu'un saut de page soit insérer automatiquement selon un critère contenu dans une cellule.

Ce critère peut être un chiffre : saut de page après chaque "7" rencontré
Il peut aussi être un jour de la semaine : saut de page après chaque dimanche.

Un fichier vaut toujours mieux qu'une longue explication. Donc ce qui précède est dans le fichier joint.

J'ai tenté une recherche dans ce qui existe et j'ai trouvé quelques solutions; mais, étant nul en VBA, je n'ai pas su adapté à mon cas précis.

Un grand merci à celui qui se penchera sur ma problématique.

 

[obelix77]

Bonjour à tous,

Je n'ai obtenu aucune réponse à ma demande. Ma question est-elle mal posée?
Ou ma demande est impossible?

Par avance, un grands merci pour vos éclaircissements.

 

[DoubleZero]

Bonjour, obelix77, le Forum,

Comme ceci ?

Option Explicit
Sub Saut_de_page_insérer()
    Dim i As Long
    Application.ScreenUpdating = 0
    With Sheets("Feuil1")
        .ResetAllPageBreaks
        For i = .Cells(Rows.Count, "b").End(xlUp).Row To 3 Step -1
            If .Range("b" & i).Value = 7 Then .HPageBreaks.Add Before:=.Range("b" & i)
        Next i
    End With
    Application.ScreenUpdating = -1
End Sub

A bientôt 🙂