Discussion :

[bybelos33]

Bonjour,

Je vréée plusieurs feuilles dans un fichier Excel que je reconfigure en impression pour avoir une seule page en largeur et plusieurs pages en hauteur.
Seulement la fonction : Worksheets(I).HPageBreaks.count me sort toujours le même chiffre quelquesoit la feuille.

Quelqu'un a t'il une solution ?

Emmanuel

[Maxence HUBICHE]

J'ai fait un test chez moi.
Ca marche nickel !

Code :

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

1
2
3
4
5
6
7
 
Sub bidon()
    Dim x As Worksheet
    For Each x In ActiveWorkbook.Sheets
        Debug.Print x.HPageBreaks.Count
    Next
End Sub

me donne 3 / 0 / 0

Car j'ai
4 pages à afficher sur la première feuille
1 pages à afficher sur la deuxième feuille
1 pages à afficher sur la troisième feuille

[bybelos33]

Mon code est le suivant et j'obtiens toujours le même nombre

Code :

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

1
2
3
4
5
6
7
8
    Sheets(Nb_feuille).Select
    'Redéfinie la zone d'impression
    Set tbl = Cells(1, 1).CurrentRegion
    Imax = tbl.Rows.count - 1
    Temp = Chr(75 + Niv_Max)
    ActiveSheet.PageSetup.PrintArea = "$B$1:" & Temp & Imax + 1
    Range("A1") = Worksheets(Nb_feuille).HPageBreaks.count
    Nb_feuille = Nb_feuille + 1

Merci de votre aide