Discussion :

[Momo143]

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

[Theze]

Bonjour,

Teste ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[Momo143]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Theze]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim fe As Worksheet

mais je ne l'ai pas affectée :-(
donc tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Set fe = ActiveSheet
'ou encore
Set fe = Worksheets("Feuil1")

Hervé.

[Momo143]

C'est top, la grande classe !

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

Cordialement.


Momo