Discussion :

[zoronoa]

salut,

J'essaie de supprimer des saut de page "vpagebreak", j'ai utilisé les solutions proposés dans cette discussion rien ne marche. En cherchant un peu beaucoup sur le net j'ai vu qu'il existai 2 types de saut de page (automatique et manuel)

Mes questions aujourd'hui sont :
C'est quoi la différence entre ces 2 types ?
Comment je peux enfin supprimer mes saut de page ?

Merci d'avance

[SilkyRoad]

bonjour

Comme leur nom l'indique:
Le saut de page automatique (xlPageBreakAutomatic) est ajouté automatiquement par l'application, en fonction de la taille de page prédéfinie, des marges, de l'orientation...
Le saut de page manuel (xlPageBreakManual) est ajouté et personnalisé par l'utilisateur.

rien ne marche

Quel est le message d'erreur? Qu'as tu essayé?



michel

[zoronoa]

Le warning est :

Erreur d'execution 1004
Erreur définie par l'application ou par l'objet

En dernier j'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
'Affiche le nombre de VPageBreak a supprimer
MsgBox myOldFile.Worksheets(1).VPageBreaks.Count
 
'Boucle pour tous les supprimer sur le premier worksheet
For i = 1 To myOldFile.Worksheets(1).VPageBreaks.Count Step 1
 myOldFile.Worksheets(1).VPageBreaks.Item(i).Delete
next

Juste avant j'ai affiché le nombre de VpageBreak pour m'assurer qu'ils sont present... il y en a 3 mais refusent le delete ^^

[SilkyRoad]

bonsoir

Tu ne peux supprimer que les sauts de page manuels:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim i As Integer
Dim myOldFile As Workbook
 
Set myOldFile = ThisWorkbook
 
'Affiche le nombre de VPageBreak a supprimer
MsgBox myOldFile.Worksheets(1).VPageBreaks.Count
 
For i = myOldFile.Worksheets(1).VPageBreaks.Count To 1 Step -1
    If myOldFile.Worksheets(1).VPageBreaks(i).Type = xlPageBreakManual Then _
        myOldFile.Worksheets(1).VPageBreaks(i).Delete
 
Next

Un exemple pour supprimer tous les sauts de pages manuels (verticaux et horizontaux) dans la feuille:

Code :

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

Worksheets(1).ResetAllPageBreaks

michel

[zoronoa]

Merci de vos réponse, mais c'est bien des sauts de page automatique que je veux supprimer.

En réalisant des copier/coller de différent fichier, windows à divisé la page en 6 par des sauts de page automatique

J'ai lu quelques part sur un site microsoft que déplacer des sauts de page automatique les transforme en manuel (Et que donc je pourrai les supprimer). Je vais étudié cette solution quand j'aurai le temps car maintenant je suis passé à un autre projet.

Merci encore

[ouskel'n'or]

Bon, j'ai bien trouvé une solution mais j'ignore si elle va te convenir...
Consiste à définir la zone dont tu souhaites exclure les sauts de page et de mettre

Code :

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

1
2
3
    ActiveSheet.Range("$A$1:$I$75").Select 'la zone concernée
    ActiveSheet.HPageBreaks(1).DragOff Direction:=xlDown, RegionIndex:=1
    ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1

Inconvénient : Génère une erreur si on l'exécute une seconde fois sur une zone déjà traitée. (ne rencontre aucun saut de page => Bug)
En cas de besoin absolu, j'ajouterais une simple gestion d'ereur

Code :

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

1
2
3
4
5
On error resume next
    ActiveSheet.Range("$A$1:$I$75").Select 'la zone concernée
    ActiveSheet.HPageBreaks(1).DragOff Direction:=xlDown, RegionIndex:=1
    ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
On error goto 0

Tu dis si tu trouves une autre solution. Et regarde à DragOff, dans l'aide en ligne.
A+