Récupérer le nombre total de sauts de page

Version imprimable

25/11/2009, 11h31
cereal

Récupérer le nombre total de sauts de page
Bonjour,

je besoin dans une macro de connaître le nombre total de sauts de page (HPageBreak) contenus dans mon ActiveSheet.
Le problème est que HPageBreaks.Count me retourne 1 alors que la page compte 5 sauts de pages.

Quelqun saurait comment je pourrais récupérer cette information ?

J'ai remarqué que dans certains cas (je n'ai pas su les identifier), le nombre retourné par cette fonction s'incrémentait à chaque appel.
Par exemple, dans une boucle du type :
Code:

1 2 3 4 n = o while n < HPageBreaks.count ... wend

J'ai retrouvé ça, si ça peut t'aider... Je ne savais même pas que j'avais ça :aie:

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub CompterPagesImprimables()
Dim HFull As Integer, VFull As Integer, Total As Integer
'Nombre de pages imprimable dans la feuille active
 
    Set tbl = ActiveSheet.Range("A1").CurrentRegion
    Plage = tbl.Address
    'DernièreLigne = tbl.Rows.Count
    'DernièreColonne = tbl.Columns.Count
    MsgBox Plage
    ActiveSheet.PageSetup.PrintArea = maplage
    Set tbl = Nothing
 
    'ou plus simplement
    ActiveSheet.PageSetup.PrintArea = Range("A1").CurrentRegion.Address
    For Each PB In ActiveSheet.VPageBreaks
        If PB.Extent = xlPageBreakFull Then
            VFull = VFull + 1
        Else
            VPartial = VPartial + 1
        End If
    Next
    'Comme on ne compte que les sauts de pages
    VPartial = VPartial + 1
    MsgBox VFull & " sauts de page plein écran, " & VPartial & _
    " sauts de page de la zone d'impression"
 
    For Each PB In ActiveSheet.HPageBreaks
        If PB.Extent = xlPageBreakFull Then
            HFull = HFull + 1
        Else
            HPartial = HPartial + 1
        End If
    Next
    'Comme on ne compte que les sauts de pages
    HPartial = HPartial + 1
    MsgBox HFull & " sauts de page plein écran, " & HPartial & _
    " sauts de page de la zone d'impression"
    MsgBox "Nombre de pages total : " & (VPartial * HPartial)
    'Relecture (*)
    With ActiveSheet.PageSetup
        MsgBox "Nb pages horizontales " & .FitToPagesWide 'Marche pas (*)
        MsgBox "Nb pages verticales " & .FitToPagesTall 'Marche pas (*)
    End With
 
    With ActiveSheet.PageSetup
            .PaperSize = xlPaperA4
            .Zoom = 100
            .FitToPagesWide = HPartial
            .FitToPagesTall = VPartial
    End With
    Set tbl = Nothing
 
    'Obtenir le nombre de page total selon SilkyRoad
    MsgBox "Nombre de page total : " & ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub
'La première Colonne des pages de gauche et la première ligne des pages du haut est 1
'Les autres commencent à PageBreak + 1
'C'est pourquoi la première ligne = 0 (AdV(0) = 0)...
'... et la première colonne = 0 (AdH(0) = 0) afin de pouvoir ajouter 1 à toutes...
'... les premières lignes et première colonnes des pages de la zone d'impression

Bon courage

25/11/2009, 11h42
mercatog

Citation:

Lorsque la propriété Application, Count, Creator, Item ou Parent, ou encore la méthode Add est utilisée avec la propriété HPageBreaks :

Pour une zone d'impression automatique, la propriété HPageBreaks s'applique uniquement aux sauts de page de la zone d'impression.
Pour une zone d'impression personnalisée de la même plage, la propriété HPageBreaks s'applique à tous les sauts de page.
25/11/2009, 11h47
cereal

Merci pour ta réactivité, mais ton code ne semble pas fonctionner correctement avec mon document. Il ne trouve de 2 pages, or il y en a 5...
Je commence à me demander si le problème ne viendrait pas de mon document ?...
25/11/2009, 11h48
ouskel'n'or

As-tu défini la zone d'impression avant de compter le nombre de pages ?
25/11/2009, 11h49
cereal

J'ai lu ce passage dans la doc, mais ça ne m'a pas plus avancé...
Qu'est-ce qu'une zone d'impression personalisée ? faut-il en définir une ?

exemple

Code:

1
2
ActiveSheet.PageSetup.PrintArea = "$A$1:$C$300" '
MsgBox ActiveSheet.HPageBreaks.Count

Rien n'y fait...
J'ai écrit le code ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 Dim pageOriginale As Worksheet Set pageOriginale = ActiveSheet MsgBox ("nb Ligne = " & pageOriginale.UsedRange.Rows.Count) pageOriginale.PageSetup.PrintArea = "$A$1:$AI$" & pageOriginale.UsedRange.Rows.Count MsgBox ("nbBreaks = " & pageOriginale.HPageBreaks.Count)
Il me retourne toujours 1...

Quelqun peut essayer chez lui et me dire s'il observe le même comportement ?

Merci pour votre aide ;)

25/11/2009, 12h20
cereal

Elle est définie :

Code:

pageOriginale.PageSetup.PrintArea = "$A$1:$AI$" & pageOriginale.UsedRange.Rows.Count

pageOriginale.UsedRange.Rows.Count renvoie 140 sur mon document.

C'est de la sorcellerie !!!
Je change un poil le code comme suit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim plage As String Dim pageOriginale As Worksheet Set pageOriginale = ActiveSheet MsgBox ("nb Ligne = " & pageOriginale.UsedRange.Rows.Count) plage = "$A$1:$AI$" & pageOriginale.UsedRange.Rows.Count MsgBox ("Plage = " & plage) pageOriginale.PageSetup.PrintArea = plage MsgBox ("nbBreaks = " & pageOriginale.HPageBreaks.Count)
et maintenant ça fonctionne 8O

Du coup j'hésite à passer le thread en [Résolu]...

Qqun aurait une explication ?

En tout cas, merci à tous pour votre participation ;) !