Rapport de message :*
 

Re: insérer automatiquement un saut de page aprés une cellule X

Titre du sujet : Re: insérer automatiquement un saut de page aprés une cellule X
par myDearFriend! le 11/09/2009 23:18:34

Bonsoir inspecteur, le Forum,

DANS UN MODULE DE CODE STANDARD (au lieu du module de code de la feuille) :
Option Explicit

Sub SautDePageApres_benefice()
Dim R As Range
Dim Adr As String
    Application.ScreenUpdating = False
    With Sheets("Feuil2") ' à adapter
        Set R = .Columns(1).Find("bénéfice")
        If R Is Nothing Then Exit Sub
        Adr = R.Address
        Do
            .HPageBreaks.Add R.Offset(1, 0)
            Set R = .Columns(1).FindNext(R)
        Loop While Not R Is Nothing And R.Address <> Adr
    End With
    Application.ScreenUpdating = True
End Sub

A noter que ton code précédent pouvait difficilement fonctionner avec une recherche sur "bénifice" au lieu de "bénéfice"...

Cordialement,