Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Sauts de pages

Sauts de pages

8 réponses
Avatar
Cyril DUPONT
Bonjour à tous et bon retour de vacances !

J'ai une sheet d'environ 500 lignes dont je masque la plupars des ces lignes
avec une macro.
Par exemple je masque les lignes 20 à 360 et 380 à 500.

Mon soucis est qu'à l'impression je me retrouve avec 2 pages et je n'arrive
pas à les regrouper en une seul alors que les 40 lignes à la suite ne
représente pas plus d'une page...

Si quelqu'un a la solution ça m'aiderai beaucoup je ne vois vraiment pas
comment faire... Merci d'avance.

--Cyril--
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FFO
Salut à toi

j'ai fait l'essai avec succès

Une seule feuille d'impression mais j'ai du ajuster mes colonnes pour qu'en
type portrait elles rentrent dans cette feuille

N'as tu pas le même souci à savoir 2 feuilles liées à l'importance de tes
colonnes et non de tes lignes ????

Dis nous !!!!



Bonjour à tous et bon retour de vacances !

J'ai une sheet d'environ 500 lignes dont je masque la plupars des ces lignes
avec une macro.
Par exemple je masque les lignes 20 à 360 et 380 à 500.

Mon soucis est qu'à l'impression je me retrouve avec 2 pages et je n'arrive
pas à les regrouper en une seul alors que les 40 lignes à la suite ne
représente pas plus d'une page...

Si quelqu'un a la solution ça m'aiderai beaucoup je ne vois vraiment pas
comment faire... Merci d'avance.

--Cyril--


Avatar
Cyril DUPONT
Ce n'est pas à cause de la largeur du document.

Excel créer automatiquement un saut de page entre la ligne 19 et 361 et je
n'arrive pas à le supprimer ni à le déplacer...

--Cyril--



Salut à toi

j'ai fait l'essai avec succès

Une seule feuille d'impression mais j'ai du ajuster mes colonnes pour qu'en
type portrait elles rentrent dans cette feuille

N'as tu pas le même souci à savoir 2 feuilles liées à l'importance de tes
colonnes et non de tes lignes ????

Dis nous !!!!


Avatar
FFO
Rebonjours à toi

Excel crée un saut de page en utilisant ta macro je suppose
As tu essayé de réaliser la même opération à la main
Tu ne devrais pas avoir ce saut de page moi même ne l'ayant pas eu
Si tel est le cas c'est ta macro qui provoque ce saut de page
Quel en est le code ????

Merci de le communiquer



Ce n'est pas à cause de la largeur du document.

Excel créer automatiquement un saut de page entre la ligne 19 et 361 et je
n'arrive pas à le supprimer ni à le déplacer...

--Cyril--



Salut à toi

j'ai fait l'essai avec succès

Une seule feuille d'impression mais j'ai du ajuster mes colonnes pour qu'en
type portrait elles rentrent dans cette feuille

N'as tu pas le même souci à savoir 2 feuilles liées à l'importance de tes
colonnes et non de tes lignes ????

Dis nous !!!!




Avatar
lSteph
Bonjour,
[ just for pleasure]
...
Cela me rappelle l'histoire de deux camionneurs devant un Tunnel

"...et si on dégonflait les pneus il ne manque qu'un centimètre pour
passer".

"Mais non Félix , c'est pas d'en bas que ça gène, mais d'en haut...!"

...
[end of pleasure]

Excel ajuste la mise en page en proportion de la feuille, donc ce
n'est pas forcément de la que cela vient mais il y a une forte
probabilité pour que la suggestion de FFO soit à considérer..amha

Cordialement.

lSteph

On 4 sep, 16:32, Cyril DUPONT
wrote:
Ce n'est pas à cause de la largeur du document.

Excel créer automatiquement un saut de page entre la ligne 19 et 361 et je
n'arrive pas à le supprimer ni à le déplacer...

--Cyril--


Salut à toi

j'ai fait l'essai avec succès

Une seule feuille d'impression mais j'ai du ajuster mes colonnes pour q u'en
type portrait elles rentrent dans cette feuille

N'as tu pas le même souci à savoir 2 feuilles liées à l'importa nce de tes
colonnes et non de tes lignes ????

Dis nous !!!!




Avatar
Cyril DUPONT
Voici ce que j'utilise mais je n'ai écrit aucune instruction pour la
création d'un saut de page où que ce soit !? C'est à n'y rien comprendre...


Private Sub Worksheet_Activate()
Cells.EntireRow.Hidden = False
Select Case [CF10].Value
Case Is = 0
Range("19:138").EntireRow.Hidden = True
Case Is = 1
Range("24:48,54:78,84:108,114:142").EntireRow.Hidden = True
Case Is = 2
Range("29:48,59:78,89:108,119:142").EntireRow.Hidden = True
Case Is = 3
Range("34:48,64:78,94:108,124:142").EntireRow.Hidden = True
Case Is = 4
Range("39:48,69:78,99:108,129:142").EntireRow.Hidden = True
Case Is = 5
Range("44:48,74:78,104:108,134:142").EntireRow.Hidden = True
Case Is = 6
Range("139:142").EntireRow.Hidden = True
End Select
Select Case [CF11].Value
Case Is = 0
Range("145:304").EntireRow.Hidden = True
Case Is = 1
Range("150:184,190:224,230:264,270:307").EntireRow.Hidden = True
Case Is = 2
Range("155:184,195:224,235:264,275:307").EntireRow.Hidden = True
Case Is = 3
Range("160:184,200:224,240:264,280:307").EntireRow.Hidden = True
Case Is = 4
Range("165:184,205:224,245:264,285:307").EntireRow.Hidden = True
Case Is = 5
Range("170:184,210:224,250:264,290:307").EntireRow.Hidden = True
Case Is = 6
Range("175:184,215:224,255:264,295:307").EntireRow.Hidden = True
Case Is = 7
Range("180:184,220:224,260:264,300:307").EntireRow.Hidden = True
Case Is = 8
Range("304:307").EntireRow.Hidden = True
End Select
Select Case [CF9].Value
Case Is = 8
Range("13:15,49:138,185:304").EntireRow.Hidden = True
Case Is = 4

Range("12:12,14:14,15:15,19:48,79:138,145:184,224:303").EntireRow.Hidden =
True
Case Is = 2
Range("12:13,15:15,19:78,109:138,145:224,264:303").EntireRow.Hidden
= True
Case Is = 1
Range("12:12,13:13,14:14,19:108,145:264").EntireRow.Hidden = True
End Select
End Sub


Ou faut-il que je dégonfle les pneus ?

Merci à vous deux de vous pencher sur mon problème...

--Cyril--



Rebonjours à toi

Excel crée un saut de page en utilisant ta macro je suppose
As tu essayé de réaliser la même opération à la main
Tu ne devrais pas avoir ce saut de page moi même ne l'ayant pas eu
Si tel est le cas c'est ta macro qui provoque ce saut de page
Quel en est le code ????

Merci de le communiquer



Ce n'est pas à cause de la largeur du document.

Excel créer automatiquement un saut de page entre la ligne 19 et 361 et je
n'arrive pas à le supprimer ni à le déplacer...

--Cyril--




Avatar
lSteph
re,

A priori ta macro ne me pose aucun problème pour déplacer les sauts de
page
j'ai modifié la valeur de [CF10] et changé deux fois de feuille puis
revenu
le remasquage se fait et adapte la mise en page mais n'empêche pas de
redéplacer les sauts.

Revoir plutôt du côté des pneus,
;o)

...ou sur le même registre que la première suggestion de FFO

Cordialement.

lSteph

On 4 sep, 17:18, Cyril DUPONT
wrote:
Voici ce que j'utilise mais je n'ai écrit aucune instruction pour la
création d'un saut de page où que ce soit !? C'est à n'y rien compr endre...

Private Sub Worksheet_Activate()
Cells.EntireRow.Hidden = False
Select Case [CF10].Value
Case Is = 0
Range("19:138").EntireRow.Hidden = True
Case Is = 1
Range("24:48,54:78,84:108,114:142").EntireRow.Hidden = True
Case Is = 2
Range("29:48,59:78,89:108,119:142").EntireRow.Hidden = True
Case Is = 3
Range("34:48,64:78,94:108,124:142").EntireRow.Hidden = True
Case Is = 4
Range("39:48,69:78,99:108,129:142").EntireRow.Hidden = True
Case Is = 5
Range("44:48,74:78,104:108,134:142").EntireRow.Hidden = True
Case Is = 6
Range("139:142").EntireRow.Hidden = True
End Select
Select Case [CF11].Value
Case Is = 0
Range("145:304").EntireRow.Hidden = True
Case Is = 1
Range("150:184,190:224,230:264,270:307").EntireRow.Hidden = True
Case Is = 2
Range("155:184,195:224,235:264,275:307").EntireRow.Hidden = True
Case Is = 3
Range("160:184,200:224,240:264,280:307").EntireRow.Hidden = True
Case Is = 4
Range("165:184,205:224,245:264,285:307").EntireRow.Hidden = True
Case Is = 5
Range("170:184,210:224,250:264,290:307").EntireRow.Hidden = True
Case Is = 6
Range("175:184,215:224,255:264,295:307").EntireRow.Hidden = True
Case Is = 7
Range("180:184,220:224,260:264,300:307").EntireRow.Hidden = True
Case Is = 8
Range("304:307").EntireRow.Hidden = True
End Select
Select Case [CF9].Value
Case Is = 8
Range("13:15,49:138,185:304").EntireRow.Hidden = True
Case Is = 4

Range("12:12,14:14,15:15,19:48,79:138,145:184,224:303").EntireRow.Hidden =
True
Case Is = 2
Range("12:13,15:15,19:78,109:138,145:224,264:303").EntireRow.Hidd en
= True
Case Is = 1
Range("12:12,13:13,14:14,19:108,145:264").EntireRow.Hidden = Tr ue
End Select
End Sub

Ou faut-il que je dégonfle les pneus ?

Merci à vous deux de vous pencher sur mon problème...

--Cyril--


Rebonjours à toi

Excel crée un saut de page en utilisant ta macro je suppose
As tu essayé de réaliser la même opération à la main
Tu ne devrais pas avoir ce saut de page moi même ne l'ayant pas eu
Si tel est le cas c'est ta macro qui provoque ce saut de page
Quel en est le code ????

Merci de le communiquer



Ce n'est pas à cause de la largeur du document.

Excel créer automatiquement un saut de page entre la ligne 19 et 36 1 et je
n'arrive pas à le supprimer ni à le déplacer...

--Cyril--






Avatar
Cyril DUPONT
Voici le document qui me pose toujours problème...

http://cjoint.com/?jeuqq6b7UH


--Cyril--



re,

A priori ta macro ne me pose aucun problème pour déplacer les sauts de
page
j'ai modifié la valeur de [CF10] et changé deux fois de feuille puis
revenu
le remasquage se fait et adapte la mise en page mais n'empêche pas de
redéplacer les sauts.

Revoir plutôt du côté des pneus,
;o)

...ou sur le même registre que la première suggestion de FFO

Cordialement.

lSteph

On 4 sep, 17:18, Cyril DUPONT
wrote:
Voici ce que j'utilise mais je n'ai écrit aucune instruction pour la
création d'un saut de page où que ce soit !? C'est à n'y rien comprendre...

Private Sub Worksheet_Activate()
Cells.EntireRow.Hidden = False
Select Case [CF10].Value
Case Is = 0
Range("19:138").EntireRow.Hidden = True
Case Is = 1
Range("24:48,54:78,84:108,114:142").EntireRow.Hidden = True
Case Is = 2
Range("29:48,59:78,89:108,119:142").EntireRow.Hidden = True
Case Is = 3
Range("34:48,64:78,94:108,124:142").EntireRow.Hidden = True
Case Is = 4
Range("39:48,69:78,99:108,129:142").EntireRow.Hidden = True
Case Is = 5
Range("44:48,74:78,104:108,134:142").EntireRow.Hidden = True
Case Is = 6
Range("139:142").EntireRow.Hidden = True
End Select
Select Case [CF11].Value
Case Is = 0
Range("145:304").EntireRow.Hidden = True
Case Is = 1
Range("150:184,190:224,230:264,270:307").EntireRow.Hidden = True
Case Is = 2
Range("155:184,195:224,235:264,275:307").EntireRow.Hidden = True
Case Is = 3
Range("160:184,200:224,240:264,280:307").EntireRow.Hidden = True
Case Is = 4
Range("165:184,205:224,245:264,285:307").EntireRow.Hidden = True
Case Is = 5
Range("170:184,210:224,250:264,290:307").EntireRow.Hidden = True
Case Is = 6
Range("175:184,215:224,255:264,295:307").EntireRow.Hidden = True
Case Is = 7
Range("180:184,220:224,260:264,300:307").EntireRow.Hidden = True
Case Is = 8
Range("304:307").EntireRow.Hidden = True
End Select
Select Case [CF9].Value
Case Is = 8
Range("13:15,49:138,185:304").EntireRow.Hidden = True
Case Is = 4

Range("12:12,14:14,15:15,19:48,79:138,145:184,224:303").EntireRow.Hidden > > True
Case Is = 2
Range("12:13,15:15,19:78,109:138,145:224,264:303").EntireRow.Hidden
= True
Case Is = 1
Range("12:12,13:13,14:14,19:108,145:264").EntireRow.Hidden = True
End Select
End Sub

Ou faut-il que je dégonfle les pneus ?

Merci à vous deux de vous pencher sur mon problème...

--Cyril--


Rebonjours à toi

Excel crée un saut de page en utilisant ta macro je suppose
As tu essayé de réaliser la même opération à la main
Tu ne devrais pas avoir ce saut de page moi même ne l'ayant pas eu
Si tel est le cas c'est ta macro qui provoque ce saut de page
Quel en est le code ????

Merci de le communiquer



Ce n'est pas à cause de la largeur du document.

Excel créer automatiquement un saut de page entre la ligne 19 et 361 et je
n'arrive pas à le supprimer ni à le déplacer...

--Cyril--











Avatar
LSteph
Bonsoir,

c'est entre 18 et 79 par exemple qu'il y a un saut de page .
Si on met 2
ces lignes sont masquées selon ta macro.
Ainsi
le saut de page n'est plus accessible.
Si l'on réaffiche tout.
Le saut redevient disponible et on peut le bouger.

Donc c'est normal!

Alternative: mettre ce qui convient en Impression_des_titres pour
qu'elle persiste quelle que soit la plage à imprimer.
Supprimer tout saut de Page dans la Zone_d_impression

Dans la mise en page Page choisir Ajuster à une page en largeur
et en hauteur mettre ,..rien, supprimer la valeur affichée.
Ajuster la marge du bas, selon les blocs.

Ainsi qd tu choisis... la mise en page selon le nombre de page s'adapte
toute seule.

Cordialement.

lSteph



Voici le document qui me pose toujours problème...

http://cjoint.com/?jeuqq6b7UH


--Cyril--



re,

A priori ta macro ne me pose aucun problème pour déplacer les sauts de
page
j'ai modifié la valeur de [CF10] et changé deux fois de feuille puis
revenu
le remasquage se fait et adapte la mise en page mais n'empêche pas de
redéplacer les sauts.

Revoir plutôt du côté des pneus,
;o)

...ou sur le même registre que la première suggestion de FFO

Cordialement.

lSteph

On 4 sep, 17:18, Cyril DUPONT
wrote:
Voici ce que j'utilise mais je n'ai écrit aucune instruction pour la
création d'un saut de page où que ce soit !? C'est à n'y rien comprendre...

Private Sub Worksheet_Activate()
Cells.EntireRow.Hidden = False
Select Case [CF10].Value
Case Is = 0
Range("19:138").EntireRow.Hidden = True
Case Is = 1
Range("24:48,54:78,84:108,114:142").EntireRow.Hidden = True
Case Is = 2
Range("29:48,59:78,89:108,119:142").EntireRow.Hidden = True
Case Is = 3
Range("34:48,64:78,94:108,124:142").EntireRow.Hidden = True
Case Is = 4
Range("39:48,69:78,99:108,129:142").EntireRow.Hidden = True
Case Is = 5
Range("44:48,74:78,104:108,134:142").EntireRow.Hidden = True
Case Is = 6
Range("139:142").EntireRow.Hidden = True
End Select
Select Case [CF11].Value
Case Is = 0
Range("145:304").EntireRow.Hidden = True
Case Is = 1
Range("150:184,190:224,230:264,270:307").EntireRow.Hidden = True
Case Is = 2
Range("155:184,195:224,235:264,275:307").EntireRow.Hidden = True
Case Is = 3
Range("160:184,200:224,240:264,280:307").EntireRow.Hidden = True
Case Is = 4
Range("165:184,205:224,245:264,285:307").EntireRow.Hidden = True
Case Is = 5
Range("170:184,210:224,250:264,290:307").EntireRow.Hidden = True
Case Is = 6
Range("175:184,215:224,255:264,295:307").EntireRow.Hidden = True
Case Is = 7
Range("180:184,220:224,260:264,300:307").EntireRow.Hidden = True
Case Is = 8
Range("304:307").EntireRow.Hidden = True
End Select
Select Case [CF9].Value
Case Is = 8
Range("13:15,49:138,185:304").EntireRow.Hidden = True
Case Is = 4

Range("12:12,14:14,15:15,19:48,79:138,145:184,224:303").EntireRow.Hidden >>> True
Case Is = 2
Range("12:13,15:15,19:78,109:138,145:224,264:303").EntireRow.Hidden
= True
Case Is = 1
Range("12:12,13:13,14:14,19:108,145:264").EntireRow.Hidden = True
End Select
End Sub

Ou faut-il que je dégonfle les pneus ?

Merci à vous deux de vous pencher sur mon problème...

--Cyril--


Rebonjours à toi
Excel crée un saut de page en utilisant ta macro je suppose
As tu essayé de réaliser la même opération à la main
Tu ne devrais pas avoir ce saut de page moi même ne l'ayant pas eu
Si tel est le cas c'est ta macro qui provoque ce saut de page
Quel en est le code ????
Merci de le communiquer
Ce n'est pas à cause de la largeur du document.
Excel créer automatiquement un saut de page entre la ligne 19 et 361 et je
n'arrive pas à le supprimer ni à le déplacer...
--Cyril--