Discussion :

[tarmin]

Bonjour,

J'ai un document excel dans lequel j'ai créé un bouton pour insérer des lignes. A partir d'un certain nombre, j'insére un saut de page afin que la mise en page reste "correcte". Seulement à un certain moment, je souhaiterai supprimer ce saut de page mais je n'y parvient pas... Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
If inumligne = 32 Then
    Rows(inumligne + 3).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
End If
If inumligne = 46 Then
    Rows(49).Select
    ActiveSheet.HPageBreaks.Delete
   End If

Quelqu'un pourrait me dire ce qui ne va pas avec ce code ?

Merci d'avance

[Commodore]

La méthode Delete n'existe pas directement sur HPageBreak.

Essaie ceci:

Code :

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

1
2
 
ActiveSheet.HPageBreak.Item.Delete

[tarmin]

Ca ne marche pas . Message d'erreur : propriété ou méthode non gérée par cet objet...

[illight]

Essaye peut etre :

Code :

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

ActiveSheet.HPageBreaks(NomFeuille).Delete

[Commodore]

pour supprimer tous les sauts de page:

Code :

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

1
2
3
4
5
 
n = ActiveSheet.HPageBreaks.Count 
for i=1 to n 
    ActiveSheet.hPageBreaks(i).delete 
next

reste a connaitre la bonne valeur de i pour supprimer le saut de page voulu...

[tarmin]

J'ai essayé ton code mais il ne marche pas. Je ne sais pas si j'ai oublié quelque chose. Il me vient l'erreur suivante : Erreur d'exécution '1004' : Erreur définie par l'application ou par l'objet. Je ne sais pas si j'ai oublié de déclarer quelque chose ?

Merci du coup de pouce

[Commodore]

tu dois supprimer un saut de page qui n'existe pas.

quand j'enregistre une macro automatique qui supprime un saut de page, j'obtiens le code suivant:

Code :

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

1
2
 
ActiveSheet.HPageBreaks(1).Delete

donc il est probable que ton indice sorte de la collection HPageBreaks().

[tarmin]

Aucune idée. J'avoue que je n'y comprend rien... voici la globalité de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub Macro1()
 
ActiveSheet.Unprotect ("cestegal")
 
inumligne = Range("x1").Value
'
    Rows(inumligne).Select
    Selection.Insert Shift:=xlUp
    Rows(inumligne + 1).Select
    Selection.Copy
    Rows(inumligne).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
If inumligne = 32 Then
Rows(35).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
If inumligne = 46 Then
n = ActiveSheet.HPageBreaks.Count
For i = 1 To n
    ActiveSheet.HPageBreaks(i).Delete
Next
End If
    Range("x1").Value = inumligne + 1
ActiveSheet.Protect ("cestegal")
 
End Sub

J'essai donc d'effacer le totalité des saut de pages mais ça ne fonctionne pas...

[Commodore]

sur quelle ligne se produit l'erreur ?
chez moi ça ne plante pas...

si ton fichier n'est pas confidentiel, tu pourrais le mettre en lien stp ?

[tarmin]

demande de commande.zip

Voilà l'truc...

Merci beaucoup

[Commodore]

visiblement il refuse de supprimer le 1er saut de page. Peut etre est-ce dû au fait que ce premier HPageBreak représente le début de la feuille.

Quand je mets 2 en indice il le supprime normalement.

donc je te conseille de commencer tes suppressions à partir de l'indice 2.

Code :

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

1
2
3
4
 
For i = 2 To n
    HPageBreaks(i).Delete
Next

[tarmin]

Merci beaucoup. J'ai mis ce que vous m'avez donné en remplaçant tout de même le 2 par un 1 et... ça marche.

Je n'y comprend rien mais ce n'est pas grave...

Merci et bonne fin d'après-midi

[laurent.mayolle]

On ne peut supprimer que les sauts de page manuels, il faut donc tester le type de saut de page avant de tenter de le supprimer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub SupprimerSautsDePage(AFeuille As Worksheet)
  Dim intSautPage As Integer
  Dim intNbSauts  As Integer
  With AFeuille
    intNbSauts = .HPageBreaks.Count
    'Supprimer tous les sauts de page horizontaux
    For intSautPage = intNbSauts To 1 Step -1
      If .HPageBreaks.Item(intSautPage).Type = xlPageBreakManual Then
        .HPageBreaks.Item(intSautPage).Delete
      End If
    Next
  End With
End Sub