Saut de page

J'utilise le code ci dessouspour modifier mes saut de page mais j'ai un bug à la ligne:

Code:

---

Set Sheets(2).HPageBreaks(i).Location = Range("A" & pos - 2)

---

Merci pour votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

sdp = Sheets(2).HPageBreaks.Count If sdp > 0 Then For i = 1 To sdp pos = Sheets(2).HPageBreaks(i).Location.Row If Sheets(2).Cells(pos, 7).Value <> "" And Sheets(2).Cells(pos - 2, 7).Value <> "" Then j = Sheets(2).Cells(pos, 7).End(xlUp).Row Sheets(2).Rows(j - 2 & ":" & j).Copy Sheets(2).Rows(pos & ":" & pos + 2).Insert Shift:=xlDown ElseIf Sheets(2).Cells(pos - 2, 7).Value = "" Then Set Sheets(2).HPageBreaks(i).Location = Range("A" & pos - 2) ElseIf Sheets(2).Cells(pos - 1, 7).Value = "" And Sheets(2).Cells(pos - 2, 7).Value = "" Then Set Sheets(2).HPageBreaks(i).Location = Range("A" & pos - 1) End If Next i

---

Bonjour,

L'instruction Set (la lire dans ton aide en ligne) est faite pour assigner à une variable la référence à un objet

Location, dans ton code, n'est pas un objet, mais une propriété.
Set n'a donc pas ici lieu d'être utilisé.

Je viens par ailleurs d'ouvrir mon aide en ligne sur la propriété location ...
Elle est assortie d'un exemple, qui est précisément la modification de l'emplacement d'un saut de page horizontal ... !

J'ai appliquer exactement l'exemple de l'aide en ligne mais ça ne marche pas, il ne se passe rien.

Code:

---

Worksheets(1).HPageBreaks(1).Location = Worksheets(1).Range("e5")

---

Merci pour votre aide

Bonjour.

Pour déplacer un saut de page, il faut qu'il existe. S'il n'y a aucun saut de page, il faut d'abord le créer. Voir la méthode add de la collection HPageBreaks. L'argument Before te permettra de le placer directement où tu le veux.

Cordialement,

PGZ

Il est évident que mon saut de page existe, mais pour autant, ca ne marche pas
ni dans mon programme, ni dans un exemple simple que j'ai refait.

Merci

Plus exactement, quand j'applique l'exemple, il me supprime le contenu de la cellule correspondant à mon saut de page, mais il ne me deplace pas le saut de page

salut,

oui vraiment relou ton truc :koi: , un bug + une erreur dans l'aide en ligne excel VBA... :aie:

Si tu utilise le code de l'aide en ligne :

Code:

---

Worksheets(1).HPageBreaks(1).Location = Worksheets(1).Range("e5")

---

cela copie le contenu de la cellule E5 dans la cellule designée par le saut de page...:aie:


l'enregistrement d'une macro de déplacement donne :

Code:

---

Set ActiveSheet.HPageBreaks(1).Location = Range("A11")

---

qui semble plus logique ..., mais voilà cela ne fonctionne pas ..et excel aprés mure reflexion nous sort une erreur 1004



je crois que tu vas être obligé de passer par un ajout d'un saut de page au nouveau emplacement suivit d'un delete de l'ancien . :(


tu dis quoi...

J'ai trouvé la solution, le code qui marche est le suivant:

Code:

---

Set ActiveSheet.HPageBreaks(1).Location = Range("A11")

---

Mais il faut activer l'aperçu saut de page au préalable; chose que je n'avais pas faite.
Merci à tous pour votre aide.

CB

:king: oui c'est vrai que pour enregistrer le déplacement par macro, j'ai du aussi passer en aperçu avant des sauts de pages..

Si ton problème est résolu, veux-tu bien cliquer sur le bouton :resolu:, en bas de discussion?

Merci