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

obelix77

XLDnaute Junior
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.
 

Pièces jointes

  • saut_de_page_critere.xlsx
    69.3 KB · Affichages: 34

DoubleZero

XLDnaute Barbatruc
Bonjour, obelix77, le Forum,

Comme ceci ?
Code:
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 :)
 

Discussions similaires