Discussion :

[vinystic]

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

Code :

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

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

Merci pour votre aide

Code :

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

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

[ucfoutu]

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 ... !

[vinystic]

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

Code :

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

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

Merci pour votre aide

[pgz]

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

[vinystic]

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

[JackOuYA]

salut,

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

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

Code :

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

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...


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

Code :

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

 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...