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