Sauts de pages

Le
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--
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #4755711
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--


Cyril DUPONT
Le #4755561
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 !!!!


FFO
Le #4755541
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 !!!!




lSteph
Le #4755531
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 !!!!




Cyril DUPONT
Le #4755491
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--




lSteph
Le #4755281
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--






Cyril DUPONT
Le #4755251
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--











LSteph
Le #4755131
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--












Publicité
Poster une réponse
Anonyme