Microsoft 365 VBA erreur sauts de page ?

danielco · Aujourd'hui à 16:28

Bonjour,

J'ai une feuille avec 16 sauts de page automatiques. L'instruction :

VB:

Debug.Print .HPageBreaks.Count

retourne 16

et l'instruction :

Code:

Set Adr2 = .HPageBreaks(7).Location

renvoie l'erreur d'exécution 9, l'indice n'appartient pas à la sélection.

Avez-vous une explication ?

Merci d'avance.

Daniel

bsalv · Aujourd'hui à 17:29

ce ne sont pas des"ranges"mais des "objets"

Enrichi (BBcode):

Dim Adr1 As Object, Adr2 As Object
ou
Dim Adr1, Adr2

danielco · Aujourd'hui à 19:03

bsalv à dit:
ce ne sont pas des"ranges"mais des "objets"

Enrichi (BBcode):

Dim Adr1 As Object, Adr2 As Object ou Dim Adr1, Adr2

Bonjour et merci,

Cependant, j'ai la même erreur avec :

Sub test()
With ActiveSheet
For i = 1 To .HPageBreaks.Count
Set Var = .HPageBreaks(i).Location
Next i
End With
End Sub

Daniel

cathodique · Aujourd'hui à 20:03

danielco à dit:
Bonjour et merci,

Cependant, j'ai la même erreur avec :

Sub test()
With ActiveSheet
For i = 1 To .HPageBreaks.Count
Set Var = .HPageBreaks(i).Location
Next i
End With
End Sub

Regarde la pièce jointe 1225021

Daniel

Bonsoir,

essaie ceci:

VB:

Sub test()
    Dim i As Integer
    Dim Var As Range

    With ActiveSheet
        If .HPageBreaks.Count > 0 Then
            For i = 1 To .HPageBreaks.Count
                Set Var = .HPageBreaks(i).Locatio
            Next i
        Else
            MsgBox "Aucun saut de page horizontal trouvé."
        End If
    End With
End Sub

patricktoulon · Aujourd'hui à 20:17

Bonsoir
Quelque chose me dit qu’à partir du moment où tu changes l'orientation les hpagebreaks se déplacent
c'est un petit bug bien connu avec les saut de pages de excel
Normalement tu doit tous les supprimer après une orientation et les placer ou tu veux

TooFatBoy · Aujourd'hui à 21:14

Bonjour,

danielco à dit:
Cependant, j'ai la même erreur avec :

VB:

Sub test() With ActiveSheet For i = 1 To .HPageBreaks.Count Set Var = .HPageBreaks(i).Location Next i End With End Sub

Ceci est très étonnant, je trouve. Combien vaut i quand tu as l'erreur ?

danielco · 2025-11-20T22:04:57+0100

danielco à dit:
Bonjour et merci,

Cependant, j'ai la même erreur avec :

Sub test()
With ActiveSheet
For i = 1 To .HPageBreaks.Count
Set Var = .HPageBreaks(i).Location
Next i
End With
End Sub

Regarde la pièce jointe 1225021

Daniel

danielco · 2025-11-20T22:07:05+0100

En fait ça fonctionne si la cellule active est en dessous des sauts de page :

VB:

Sub test()
  Range("A10000").Select
  With ActiveSheet
    For i = 1 To .HPageBreaks.Count
      Set Var = .HPageBreaks
    Next i
  End With
End Sub

https://support.microsoft.com/fr-fr...ns-excel-ec4a8e22-9b58-349d-b160-f7a4f561c809

Daniel

Microsoft 365 VBA erreur sauts de page ?

danielco

XLDnaute Barbatruc

Pièces jointes

bsalv

XLDnaute Occasionnel

danielco

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

danielco

XLDnaute Barbatruc

danielco

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 VBA erreur sauts de page ?

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency