J'ai un document excel que je souhaiterais imprimer (environ 16 pages)
Il s'agit d'une suite de petits tableaux (3 lignes chacun) séparés par une
ligne vierge.
Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble il y a
très longtemps, avoir vu qu'on pouvait demander à ce que les tableaux ne
soient pas coupés en deux, mais je n'avais rien noté à l'époque.
Si vous avez la solution... je suis preneur.
Merci
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
Azo3
hum! sauf à configurer l'impression... -- Serge CENCI
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM "Frasan" a écrit dans le message de news: 3fedaa6a$0$6966$
Bonjour,
J'ai un document excel que je souhaiterais imprimer (environ 16 pages) Il s'agit d'une suite de petits tableaux (3 lignes chacun) séparés par une ligne vierge. Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble il y a très longtemps, avoir vu qu'on pouvait demander à ce que les tableaux ne soient pas coupés en deux, mais je n'avais rien noté à l'époque.
Si vous avez la solution... je suis preneur. Merci
François
hum! sauf à configurer l'impression...
--
Serge CENCI
azofraNOSPAM@wanadoo.fr
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM
"Frasan" <_frasan45NOSPAM@club-internet.fr> a écrit dans le message de news:
3fedaa6a$0$6966$7a628cd7@news.club-internet.fr...
Bonjour,
J'ai un document excel que je souhaiterais imprimer (environ 16 pages)
Il s'agit d'une suite de petits tableaux (3 lignes chacun) séparés par une
ligne vierge.
Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble il y a
très longtemps, avoir vu qu'on pouvait demander à ce que les tableaux ne
soient pas coupés en deux, mais je n'avais rien noté à l'époque.
Si vous avez la solution... je suis preneur.
Merci
hum! sauf à configurer l'impression... -- Serge CENCI
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM "Frasan" a écrit dans le message de news: 3fedaa6a$0$6966$
Bonjour,
J'ai un document excel que je souhaiterais imprimer (environ 16 pages) Il s'agit d'une suite de petits tableaux (3 lignes chacun) séparés par une ligne vierge. Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble il y a très longtemps, avoir vu qu'on pouvait demander à ce que les tableaux ne soient pas coupés en deux, mais je n'avais rien noté à l'époque.
Si vous avez la solution... je suis preneur. Merci
François
Ricky [MVP]
Bonjour *Frasan* (et tous les lecteurs)
| Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble | il y a très longtemps, avoir vu qu'on pouvait demander à ce que les | tableaux ne soient pas coupés en deux, mais je n'avais rien noté à | l'époque. | | Si vous avez la solution... je suis preneur.
Affichage / Aperçu des sautes de page et déplacer manuellement ceux qui gènent Bon d'accord c'est pas très pro mais ça peut aider à défaut de mieux. ;) -- Ricky [MVP] Visitez les faq.... http://www.faqoe.com http://faq.ms.word.free.fr http://dj.joss.free.fr/faq.htm http://www.excelabo.net http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *Frasan* (et tous les lecteurs)
| Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble
| il y a très longtemps, avoir vu qu'on pouvait demander à ce que les
| tableaux ne soient pas coupés en deux, mais je n'avais rien noté à
| l'époque.
|
| Si vous avez la solution... je suis preneur.
Affichage / Aperçu des sautes de page et déplacer manuellement ceux qui
gènent
Bon d'accord c'est pas très pro mais ça peut aider à défaut de mieux. ;)
--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
| Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble | il y a très longtemps, avoir vu qu'on pouvait demander à ce que les | tableaux ne soient pas coupés en deux, mais je n'avais rien noté à | l'époque. | | Si vous avez la solution... je suis preneur.
Affichage / Aperçu des sautes de page et déplacer manuellement ceux qui gènent Bon d'accord c'est pas très pro mais ça peut aider à défaut de mieux. ;) -- Ricky [MVP] Visitez les faq.... http://www.faqoe.com http://faq.ms.word.free.fr http://dj.joss.free.fr/faq.htm http://www.excelabo.net http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
garnote
Salut François,
Cette macro semble convenir si : 1. tes tableaux tiennent sur une largeur de feuille, 2. tu sélectionnes une première plage de tableaux tenant sur UNE page d'impression, 3. tes tableaux sont tous espacés par une seule ligne.
Sub Imprime() Application.ScreenUpdating = False Dim i As Byte Dim NL As Byte NL = Selection.Rows.Count Selection.PrintOut Copies:=1, Collate:=True 'Le 15 à ajuster For i = 1 To 15 With Selection .Offset(NL + 1, 0).Select .PrintOut Copies:=1, Collate:=True End With Next i End Sub
Qu'en penses-tu ?
Serge
"Frasan" a écrit dans le message de news: 3fedaa6a$0$6966$
Bonjour,
J'ai un document excel que je souhaiterais imprimer (environ 16 pages) Il s'agit d'une suite de petits tableaux (3 lignes chacun) séparés par une ligne vierge. Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble il y a très longtemps, avoir vu qu'on pouvait demander à ce que les tableaux ne soient pas coupés en deux, mais je n'avais rien noté à l'époque.
Si vous avez la solution... je suis preneur. Merci
François
Salut François,
Cette macro semble convenir si :
1. tes tableaux tiennent sur une largeur de feuille,
2. tu sélectionnes une première plage de tableaux
tenant sur UNE page d'impression,
3. tes tableaux sont tous espacés par une seule ligne.
Sub Imprime()
Application.ScreenUpdating = False
Dim i As Byte
Dim NL As Byte
NL = Selection.Rows.Count
Selection.PrintOut Copies:=1, Collate:=True
'Le 15 à ajuster
For i = 1 To 15
With Selection
.Offset(NL + 1, 0).Select
.PrintOut Copies:=1, Collate:=True
End With
Next i
End Sub
Qu'en penses-tu ?
Serge
"Frasan" <_frasan45NOSPAM@club-internet.fr> a écrit dans le message de news:
3fedaa6a$0$6966$7a628cd7@news.club-internet.fr...
Bonjour,
J'ai un document excel que je souhaiterais imprimer (environ 16 pages)
Il s'agit d'une suite de petits tableaux (3 lignes chacun) séparés par une
ligne vierge.
Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble il y a
très longtemps, avoir vu qu'on pouvait demander à ce que les tableaux ne
soient pas coupés en deux, mais je n'avais rien noté à l'époque.
Si vous avez la solution... je suis preneur.
Merci
Cette macro semble convenir si : 1. tes tableaux tiennent sur une largeur de feuille, 2. tu sélectionnes une première plage de tableaux tenant sur UNE page d'impression, 3. tes tableaux sont tous espacés par une seule ligne.
Sub Imprime() Application.ScreenUpdating = False Dim i As Byte Dim NL As Byte NL = Selection.Rows.Count Selection.PrintOut Copies:=1, Collate:=True 'Le 15 à ajuster For i = 1 To 15 With Selection .Offset(NL + 1, 0).Select .PrintOut Copies:=1, Collate:=True End With Next i End Sub
Qu'en penses-tu ?
Serge
"Frasan" a écrit dans le message de news: 3fedaa6a$0$6966$
Bonjour,
J'ai un document excel que je souhaiterais imprimer (environ 16 pages) Il s'agit d'une suite de petits tableaux (3 lignes chacun) séparés par une ligne vierge. Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble il y a très longtemps, avoir vu qu'on pouvait demander à ce que les tableaux ne soient pas coupés en deux, mais je n'avais rien noté à l'époque.
Si vous avez la solution... je suis preneur. Merci
Ma dernière macro imprimait deux fois la première sélection. Mieux ainsi :
Sub Imprime() Application.ScreenUpdating = False Dim i As Byte Dim NL As Byte NL = Selection.Rows.Count Selection.PrintOut Copies:=1, Collate:=True '15 à ajuster For i = 1 To 15 Selection.Offset(NL + 1, 0).Select Selection.PrintOut Copies:=1, Collate:=True Next i End Sub
Serge
"garnote" a écrit dans le message de news: zFiHb.9831$
Salut François,
Cette macro semble convenir si : 1. tes tableaux tiennent sur une largeur de feuille, 2. tu sélectionnes une première plage de tableaux tenant sur UNE page d'impression, 3. tes tableaux sont tous espacés par une seule ligne.
Sub Imprime() Application.ScreenUpdating = False Dim i As Byte Dim NL As Byte NL = Selection.Rows.Count Selection.PrintOut Copies:=1, Collate:=True 'Le 15 à ajuster For i = 1 To 15 With Selection .Offset(NL + 1, 0).Select .PrintOut Copies:=1, Collate:=True End With Next i End Sub
Qu'en penses-tu ?
Serge
"Frasan" a écrit dans le message de news:
3fedaa6a$0$6966$
Bonjour,
J'ai un document excel que je souhaiterais imprimer (environ 16 pages) Il s'agit d'une suite de petits tableaux (3 lignes chacun) séparés par une
ligne vierge. Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble il y a
très longtemps, avoir vu qu'on pouvait demander à ce que les tableaux ne soient pas coupés en deux, mais je n'avais rien noté à l'époque.
Si vous avez la solution... je suis preneur. Merci
François
Ma dernière macro imprimait deux fois la première
sélection. Mieux ainsi :
Sub Imprime()
Application.ScreenUpdating = False
Dim i As Byte
Dim NL As Byte
NL = Selection.Rows.Count
Selection.PrintOut Copies:=1, Collate:=True
'15 à ajuster
For i = 1 To 15
Selection.Offset(NL + 1, 0).Select
Selection.PrintOut Copies:=1, Collate:=True
Next i
End Sub
Serge
"garnote" <rien@absent.net> a écrit dans le message de news:
zFiHb.9831$6N3.3018@charlie.risq.qc.ca...
Salut François,
Cette macro semble convenir si :
1. tes tableaux tiennent sur une largeur de feuille,
2. tu sélectionnes une première plage de tableaux
tenant sur UNE page d'impression,
3. tes tableaux sont tous espacés par une seule ligne.
Sub Imprime()
Application.ScreenUpdating = False
Dim i As Byte
Dim NL As Byte
NL = Selection.Rows.Count
Selection.PrintOut Copies:=1, Collate:=True
'Le 15 à ajuster
For i = 1 To 15
With Selection
.Offset(NL + 1, 0).Select
.PrintOut Copies:=1, Collate:=True
End With
Next i
End Sub
Qu'en penses-tu ?
Serge
"Frasan" <_frasan45NOSPAM@club-internet.fr> a écrit dans le message de
news:
3fedaa6a$0$6966$7a628cd7@news.club-internet.fr...
Bonjour,
J'ai un document excel que je souhaiterais imprimer (environ 16 pages)
Il s'agit d'une suite de petits tableaux (3 lignes chacun) séparés par
une
ligne vierge.
Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble il y
a
très longtemps, avoir vu qu'on pouvait demander à ce que les tableaux ne
soient pas coupés en deux, mais je n'avais rien noté à l'époque.
Si vous avez la solution... je suis preneur.
Merci
Ma dernière macro imprimait deux fois la première sélection. Mieux ainsi :
Sub Imprime() Application.ScreenUpdating = False Dim i As Byte Dim NL As Byte NL = Selection.Rows.Count Selection.PrintOut Copies:=1, Collate:=True '15 à ajuster For i = 1 To 15 Selection.Offset(NL + 1, 0).Select Selection.PrintOut Copies:=1, Collate:=True Next i End Sub
Serge
"garnote" a écrit dans le message de news: zFiHb.9831$
Salut François,
Cette macro semble convenir si : 1. tes tableaux tiennent sur une largeur de feuille, 2. tu sélectionnes une première plage de tableaux tenant sur UNE page d'impression, 3. tes tableaux sont tous espacés par une seule ligne.
Sub Imprime() Application.ScreenUpdating = False Dim i As Byte Dim NL As Byte NL = Selection.Rows.Count Selection.PrintOut Copies:=1, Collate:=True 'Le 15 à ajuster For i = 1 To 15 With Selection .Offset(NL + 1, 0).Select .PrintOut Copies:=1, Collate:=True End With Next i End Sub
Qu'en penses-tu ?
Serge
"Frasan" a écrit dans le message de news:
3fedaa6a$0$6966$
Bonjour,
J'ai un document excel que je souhaiterais imprimer (environ 16 pages) Il s'agit d'une suite de petits tableaux (3 lignes chacun) séparés par une
ligne vierge. Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble il y a
très longtemps, avoir vu qu'on pouvait demander à ce que les tableaux ne soient pas coupés en deux, mais je n'avais rien noté à l'époque.
Si vous avez la solution... je suis preneur. Merci
François
Balain
Bonsoir François,
Je te propose de déplacer tes sauts de page par une petite macro VBA ; celle ci suppose que ton tableau commence en colonne A car IsEmpty teste la première cellule de la ligne ...
Public Sub Sot2Page() For i = 1 To ActiveSheet.HPageBreaks.Count Do While Not IsEmpty(ActiveSheet.HPageBreaks(i).Location) Set ActiveSheet.HPageBreaks(i).Location = _ ActiveSheet.HPageBreaks(i).Location.Offset(-1, 0) Loop Next i End Sub
"Frasan" a écrit dans le message de news:3fedaa6a$0$6966$
Bonjour,
J'ai un document excel que je souhaiterais imprimer (environ 16 pages) Il s'agit d'une suite de petits tableaux (3 lignes chacun) séparés par une ligne vierge. Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble il y a très longtemps, avoir vu qu'on pouvait demander à ce que les tableaux ne soient pas coupés en deux, mais je n'avais rien noté à l'époque.
Si vous avez la solution... je suis preneur. Merci
François
Bonsoir François,
Je te propose de déplacer tes sauts de page par une petite macro VBA ; celle
ci suppose que ton tableau commence en colonne A car IsEmpty teste la
première cellule de la ligne ...
Public Sub Sot2Page()
For i = 1 To ActiveSheet.HPageBreaks.Count
Do While Not IsEmpty(ActiveSheet.HPageBreaks(i).Location)
Set ActiveSheet.HPageBreaks(i).Location = _
ActiveSheet.HPageBreaks(i).Location.Offset(-1, 0)
Loop
Next i
End Sub
"Frasan" <_frasan45NOSPAM@club-internet.fr> a écrit dans le message de
news:3fedaa6a$0$6966$7a628cd7@news.club-internet.fr...
Bonjour,
J'ai un document excel que je souhaiterais imprimer (environ 16 pages)
Il s'agit d'une suite de petits tableaux (3 lignes chacun) séparés par une
ligne vierge.
Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble il y a
très longtemps, avoir vu qu'on pouvait demander à ce que les tableaux ne
soient pas coupés en deux, mais je n'avais rien noté à l'époque.
Si vous avez la solution... je suis preneur.
Merci
Je te propose de déplacer tes sauts de page par une petite macro VBA ; celle ci suppose que ton tableau commence en colonne A car IsEmpty teste la première cellule de la ligne ...
Public Sub Sot2Page() For i = 1 To ActiveSheet.HPageBreaks.Count Do While Not IsEmpty(ActiveSheet.HPageBreaks(i).Location) Set ActiveSheet.HPageBreaks(i).Location = _ ActiveSheet.HPageBreaks(i).Location.Offset(-1, 0) Loop Next i End Sub
"Frasan" a écrit dans le message de news:3fedaa6a$0$6966$
Bonjour,
J'ai un document excel que je souhaiterais imprimer (environ 16 pages) Il s'agit d'une suite de petits tableaux (3 lignes chacun) séparés par une ligne vierge. Je ne voudrais pas qu'un tableau se trouve coupé en 2. Il me semble il y a très longtemps, avoir vu qu'on pouvait demander à ce que les tableaux ne soient pas coupés en deux, mais je n'avais rien noté à l'époque.
Si vous avez la solution... je suis preneur. Merci
François
Ricky [MVP]
Bonjour *sabatier* (et tous les lecteurs) | et accessoirement de celles d'humeur... | jps | | "Ricky [MVP]" wrote: | | | | | | | Affichage / Aperçu des sautes de page....
;) voilà ce qui arrive quand on a des gros doigts boudinés....
Bonjour *sabatier* (et tous les lecteurs)
| et accessoirement de celles d'humeur...
| jps
|
| "Ricky [MVP]" wrote:
|
| |
| |
| | Affichage / Aperçu des sautes de page....
;) voilà ce qui arrive quand on a des gros doigts boudinés....
Bonjour *sabatier* (et tous les lecteurs) | et accessoirement de celles d'humeur... | jps | | "Ricky [MVP]" wrote: | | | | | | | Affichage / Aperçu des sautes de page....
;) voilà ce qui arrive quand on a des gros doigts boudinés....
