insérer un saut de page

Version imprimable

09/01/2015, 07h44
Momo143

insérer un saut de page

Bonjour,

Je suis nouveau dans VBA et je souhaiterais avec un code VBA insérer un saut de page automatique dans un fichier qui compte environ 15 onglets, lorsque la valeur 1 est rencontrée dans la colonne BB de chaque onglet.
Est-ce que quelqu'un peut me venir en aide ?

D'avance merci et bonne année 2015 à tous.

Cordialement.

Momo

Bonjour,

Teste ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub SautDePage()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim fe As Worksheet
    With ActiveSheet
 
        Set Plage = .Range(.Cells(1, 54), .Cells(.Rows.Count, 54).End(xlUp))
 
    End With
 
    For Each Cel In Plage
 
        'saut de page au dessus de la cellule
        If Cel.Value = 1 Then ActiveSheet.HPageBreaks.Add Cel
 
        'saut de page au dessous de la cellule
        'If Cel.Value = 1 Then ActiveSheet.HPageBreaks.Add Cel.Offset(1, 0)
 
    Next Cel
 
End Sub

Hervé.

Tout d'abord un grand MERCI pour ta réponse, mais je rencontrer une erreur d'exécution '1004'. De mon côté, j'ai aussi essayer de créer un code VBA voir ci-dessous, mais ce code me retourne ... :?

As-tu une idée du "bug" ?

Une toute belle journée à toi.

Cordialement Momo
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub InsererSautPage() ' ' Insère un saut de page lorsque la valeur 1 est rencontrée dans la colonne BB en réinitialisant les sauts de pages existants. ' Dim rCell As Range ActiveSheet.ResetAllPageBreaks For Each rCell In Range("BB1", Cells(Rows.Count, "BB").End(xlUp)) If rCell = 1 Then ActiveSheet.HPageBreaks.Add (rCell(1, 1)) Next rCell End Sub

09/01/2015, 09h38
Momo143

Coucou Hervé,

Une erreur de recopie et voilà comment on se complique la vie :?

Je viens d'essayer ton code qui fonctionne à merveille !

Un tout grand MERCI à toi et toutes mes excuses.

Cordialement

Momo
09/01/2015, 12h25
Theze
Re,

Je viens de m'apercevoir d'une petite erreur :
Code:

1 2 Dim fe As Worksheet
mais je ne l'ai pas affectée :-(
donc tu peux faire :
Code:

1 2 3 4 Set fe = ActiveSheet 'ou encore Set fe = Worksheets("Feuil1")
Hervé.
09/01/2015, 13h46
Momo143

C'est top, la grande classe !

Encore un tout grand MERCI à toi et un tout beau WE !

Cordialement.

Momo