Microsoft 365 VBA erreur sauts de page ?

[danielco]

Bonjour,

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

Debug.Print .HPageBreaks.Count

retourne 16

et l'instruction :

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]

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

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

 

[danielco]

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

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]

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:

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]

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]

Bonjour,

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

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

 

[danielco]

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]

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

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