Discussion :

[tiwicom]

Bonjour,

j'ai une feuille Excel qui contient:
- Des tableaux de dimension fixe, avec un saut de page à la fin de chacun d'entre eux
- Un tableau de dimension variable, construit dynamiquement, qui prend plus d'une page.

En fin de construction de ce tableau, je définis la zone d'impression, puis je tente de situer le saut de page (automatique) généré par Excel, pour le positionner là où je veux.

Mon problème est que le comptage des sauts de page ne prend en compte que les 3 sauts définis manuellement dans le classeur, et ne "voit pas" celui qui a été généré automatiquement par Excel (qui est pourtant ben et bien visible sur l'onglet concerné)

quelqu'un aurait il une idée?

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
For i = 350 To 1000
        cellule_active = "B" & i
        ligne_de_fin = i
		Range(cellule_active).Select
        If ActiveCell.Value = "Fin" Then
            ligne_de_fin = i
            Exit For
        Else
            ligne_de_fin = 0
        End If
    Next i
    If ligne_de_fin > 0 Then
        zone_impr = "A1:L" & ligne_de_fin
        ActiveSheet.PageSetup.PrintArea = zone_impr
    Else
        MsgBox "Fin de zone d'impression non définie, fermez le fichier sans enregistrer"
        Exit Function
    End If
    For i = 1 To nombre_saut_page
        MsgBox "Saut:" & i & " ligne: " & ActiveSheet.HPageBreaks(i).Location.Row
    Next i

[EngueEngue]

Question bête, réponse idiote:
Les autres ne sont pas des saut de pages.

[tiwicom]

Les autres sont des sauts de page insérés "manuellement" dans le classeur
Seul le dernier est un saut de page "automatique", généré par Excel car le tableau dynamique est trop grand pour tenir sur une page

Il s'agit donc bien, dans les deux cas, de "sauts de pages"

Cordialement

[EngueEngue]

Ce n'est pas un saut de page mais comme tu as l'air de savoir que ça en est un, bon courage pour le trouver avec ta méthode!

[tiwicom]

Ce n'est pas la peine de "persifler"... Si je pose la question sur le forum, c'est que je suis bloqué.
Si ce n'est pas un saut de page, comme tu le dis, il serait je pense plus constructif (pour moi comme pour les éventuels autres personnes concernées) d'expliquer en quoi, pour toi, ce n'en est pas un, et, plutôt que "de me souhaiter bonne chance avec ma méthode", en suggérer une qui marche, ce qui est, je te le rappelle, ma demande initiale.

Pour moi, bêtement, un trait pointillé à l'écran qui fait que, lors de l'impression, Excel passe à la page suivante, je considère ça comme un saut de page, mais si en réalité c'est une fausse impression, je serais très heureux de l'apprendre, au moins, je me coucherais moins bête ce soir

Cordialement

[EngueEngue]

J'aime bien quand on me fait passer pour un con

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub compter()
for each sautpage in worksheets(1).hpagebreaks
If sautpage.Extent = xlpagebreakfull Then
plein = plein + 1
else
partiel = partiel+ 1
end if
next
MsgBox plein & " plein écran, " & partiel & " impressions"
End Sub

[casefayere]

Bonjour,

simplement

Code :

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

1
2
    ActiveSheet.ResetAllPageBreaks
    ActiveSheet.PageSetup.PrintArea = zone_impr

[tiwicom]

Merci, mais j'ai malgré tout une question

La fonction ActiveSheet.ResetAllPageBreaks ne va-t-elle pas supprimer mes sauts de page "standard", que je n'ai pas forcément envie de recréer à chaque fois?

Par ailleurs, je viens de découvrir quelque chose de bizarre...

Si je fais un aperçu avant impression de mon fichier, et que je me déplace jusqu'à la fin (c'est à dire jusqu'au saut de page en cause), et que je relance ma fonction ensuite.... eh bien là elle voit bien mon saut de page!!!!
Je me demande si finalement ce ne serait pas lié à un "recalcul des sauts de pages" qui serait nécessaire entre la création du tableau dynamique, l'ajustement de la zone d'impression, et la détection des sauts de page..... mais si c'est le cas, je ne sais pas comment faire

Merci Engueengue pour ton code
Je viens de l'essayer, toujours sur mon classeur avec 3 "sauts de page créés manuellement" et 1 "passage à la page pour cause de tableau trop grand"...

Le résultat est:
1 plein écran, 2 impressions

et, pour en revenir à ma dernière constatation, si je refais tourner le code après avoir fait un aperçu avant impression, le résultat est;
1 plein cran, 3 impressions

Donc, même si je ne comprend pas bien la différence entre le "plein écran" et le "impression", on a bien toujours le même souci qui est qu'il ne voit pas le dernier tant qu'on a pas fait un aperçu avant impression, postérieur à la définition de la zone d'impression!!!