Discussion :

[ted the Ors]

Bonjour,

J'ai un problème avec le code suivant, dont le but est entre autres, d'insérer des sauts de pages:

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
24
25
26
27
28
29
30
31
32
33
ActiveSheet.ResetAllPageBreaks
    
    Dim intColMinN3 As Integer, intColMaxN3 As Integer
    Dim intLinMinN3 As Integer, intLinMaxN3 As Integer
    Dim lastcolN3 As Long
    Dim lastrowN3 As Long
    Dim lastrowN3mid As Long

' Reglages des Sauts de Pages
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Range("O:O")
''
    
' En-tête 
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$3"
        .PrintTitleColumns = ""
    End With
''

'Définition de la zone d'impressionn
    ' Recherche de la derniere ligne et dernière colonne
    lastrowN3 = Range("B4").End(xlDown).Row
    lastcolN3 = Selection.CurrentRegion.End(xlToRight).Column
        
    intColMinN3 = 1
    intColMaxN3 = lastcolN3
    intLinMinN3 = 1
    intLinMaxN3 = lastrowN3
    ' Reglages de la zone d'impression
    ActiveSheet.PageSetup.PrintArea = Range(Cells(intLinMinN3, intColMinN3), Cells(intLinMaxN3, intColMaxN3)).Address
   
    lastrowN3mid = lastrowN3 / 2
    Set ActiveSheet.HPageBreaks(1).Location = Range("A" & lastrowN3mid)

J'ai une erreur 1004 sur la dernière ligne et j'avoue que je sèche completement!

d'avance merci!

@+

ted

[fred65200]

bonjour,

je crois que tu ne peux pas insérer de saut de page à la 1ere ligne.

cordialement

[ted the Ors]

D'accord mais là, je ne l'insère pas sur la première ligne car ma feuille en contient une quarantaine, et je l'insère à la moitié, soit la ligne 20!

[fred65200]

re
autant pour moi,

si tu veux insérer un saut de page, tu dois utiliser le code

Code :

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

ActiveSheet.HPageBreaks.Add Before:=Range("A" & lastrowN3mid)

Si ton saut de page n'est pas défini, tu auras une erreur lorsque tu attriburas une référence d'objet àl a cellule qui définit l'emplacement du saut de page.
cordialement.

[ted the Ors]

C'est bon, ca marche, c'est tout à fait ca!
Comme quoi, il faut faire super gaffe avec l'éditeur de macro!