Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Imprimer économiquement

Imprimer économiquement

12 réponses
Avatar
Horace Rochat
Bonjour,
Je dispose d'une feuille simple: une seule colonne sur=20
3800 lignes; je voudrais l'imprimer mais je voudrais=20
limiter le nombre de feuilles imprim=E9es, donc transformer=20
ce tableau d'une seule colonne en, disons 4 colonnes,=20
pour l'impression seulement.
Est-ce qu'il y a un truc?
Merci
H.R.
Signaler un problème avec ce contenu

10 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
1 2
Avatar
JièL Goubert
Bonjoir(c) Horace Rochat

Le 15/02/2004 17:39 vous nous disiez ceci :
Bonjour,
Je dispose d'une feuille simple: une seule colonne sur
3800 lignes; je voudrais l'imprimer mais je voudrais
limiter le nombre de feuilles imprimées, donc transformer
ce tableau d'une seule colonne en, disons 4 colonnes,
pour l'impression seulement.


D'autres te donnerons surement des macros pour ce que tu veux faire,
mais il existe une solution de dépannage que je trouve plutot simple :
copie ton tableau dans Word et demande à se dernier de faire une mise en
page sur 4 colonnes... magique ;-) !

Merci


--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm

Avatar
Frédéric Sigonneau
Bonjour,

Peut-être cette solution :

http://perso.wanadoo.fr/frederic.sigonneau/code/Impr/ImpressionColonnesRedecoupees3.txt

Sinon, d'autres idées dans cette page :

http://perso.wanadoo.fr/frederic.sigonneau/code/Impr

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour,
Je dispose d'une feuille simple: une seule colonne sur
3800 lignes; je voudrais l'imprimer mais je voudrais
limiter le nombre de feuilles imprimées, donc transformer
ce tableau d'une seule colonne en, disons 4 colonnes,
pour l'impression seulement.
Est-ce qu'il y a un truc?
Merci
H.R.


Avatar
Horace Rochat
Bonjour,
Et quelle est la manip pour y arriver exactement?
Merci,
H.R.

-----Message d'origine-----
Bonjoir(c) Horace Rochat

Le 15/02/2004 17:39 vous nous disiez ceci :
Bonjour,
Je dispose d'une feuille simple: une seule colonne
sur


3800 lignes; je voudrais l'imprimer mais je voudrais
limiter le nombre de feuilles imprimées, donc
transformer


ce tableau d'une seule colonne en, disons 4 colonnes,
pour l'impression seulement.


D'autres te donnerons surement des macros pour ce que tu
veux faire,

mais il existe une solution de dépannage que je trouve
plutot simple :

copie ton tableau dans Word et demande à se dernier de
faire une mise en

page sur 4 colonnes... magique ;-) !

Merci


--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez
Micro Application

http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_
trucs_de_pros.htm


.




Avatar
michdenis
Bonjour Horace,

Tu peux essayer ceci :

Modifie le nom de la feuille "Feuil1" dans la procédure pour
celui du nom de la feuille de ton application

'------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim N As Long, Nb As Long
Dim A As Long, C As Integer, B As Long
Dim Sh As Worksheet
Set Sh = Worksheets.Add

Application.ScreenUpdating = False
With Worksheets("Feuil1")
N = .Range("A65356").End(xlUp).Row
Nb = Application.Ceiling(N / 4, 1)
For A = 1 To N Step Nb
C = C + 1
.Range("A" & A & ":A" & B + Nb).Copy Sh.Cells(1, C)
B = B + Nb
Next
End With
With Sh
.PrintOut
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Set Sh = Nothing
Cancel = True

End Sub
'------------------------------------

Salutations!



"Horace Rochat" a écrit dans le message de
news:1027f01c3f3e2$547a8560$
Bonjour,
Je dispose d'une feuille simple: une seule colonne sur
3800 lignes; je voudrais l'imprimer mais je voudrais
limiter le nombre de feuilles imprimées, donc transformer
ce tableau d'une seule colonne en, disons 4 colonnes,
pour l'impression seulement.
Est-ce qu'il y a un truc?
Merci
H.R.
Avatar
Horace Rochat
J'aime beaucoup la première macro, mais elle a un
inconvénient majeur, c'est que la suite de la première
colonne de la première page se trouve sur la première
colonne de la deuxième page, au lieu d'être sur la
deuxième colonne de la première page.
Est-il possible de modifier la macro dans ce sens?
L'avantage majeur de cette macro c'est qu'elle permet la
visualisation avant d'imprimer.
Merci
H.R.


-----Message d'origine-----
Bonjour,

Peut-être cette solution :

http://perso.wanadoo.fr/frederic.sigonneau/code/Impr/Impr
essionColonnesRedecoupees3.txt


Sinon, d'autres idées dans cette page :

http://perso.wanadoo.fr/frederic.sigonneau/code/Impr

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour,
Je dispose d'une feuille simple: une seule colonne sur
3800 lignes; je voudrais l'imprimer mais je voudrais
limiter le nombre de feuilles imprimées, donc
transformer


ce tableau d'une seule colonne en, disons 4 colonnes,
pour l'impression seulement.
Est-ce qu'il y a un truc?
Merci
H.R.


.




Avatar
JièL Goubert
Bonjoir(c) Horace Rochat

Le 15/02/2004 18:29 vous nous disiez ceci :
Bonjour,
Et quelle est la manip pour y arriver exactement?


Copier / coller, tu sais faire ça ? ;-)))
Dans Word (2003), menu Format, Colonnes, tu choisi le nombre de colonnes
et l'écart entre celles ci.

Merci,


--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm

Avatar
Horace Rochat
Ça marche au poil!
Merci
H.R.


-----Message d'origine-----
Bonjoir(c) Horace Rochat

Le 15/02/2004 18:29 vous nous disiez ceci :
Bonjour,
Et quelle est la manip pour y arriver exactement?


Copier / coller, tu sais faire ça ? ;-)))
Dans Word (2003), menu Format, Colonnes, tu choisi le
nombre de colonnes

et l'écart entre celles ci.

Merci,


--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez
Micro Application

http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_
trucs_de_pros.htm


.




Avatar
michdenis
J'oubliais, cette procédure doit être copiée dans le ThisWorkbook de ton classeur. elle est activée à chaque fois que tu
demandes d'imprimer ta feuille.


Salutations!


"michdenis" a écrit dans le message de news:ulDjtz%
Bonjour Horace,

Tu peux essayer ceci :

Modifie le nom de la feuille "Feuil1" dans la procédure pour
celui du nom de la feuille de ton application

'------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim N As Long, Nb As Long
Dim A As Long, C As Integer, B As Long
Dim Sh As Worksheet
Set Sh = Worksheets.Add

Application.ScreenUpdating = False
With Worksheets("Feuil1")
N = .Range("A65356").End(xlUp).Row
Nb = Application.Ceiling(N / 4, 1)
For A = 1 To N Step Nb
C = C + 1
.Range("A" & A & ":A" & B + Nb).Copy Sh.Cells(1, C)
B = B + Nb
Next
End With
With Sh
.PrintOut
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Set Sh = Nothing
Cancel = True

End Sub
'------------------------------------

Salutations!



"Horace Rochat" a écrit dans le message de
news:1027f01c3f3e2$547a8560$
Bonjour,
Je dispose d'une feuille simple: une seule colonne sur
3800 lignes; je voudrais l'imprimer mais je voudrais
limiter le nombre de feuilles imprimées, donc transformer
ce tableau d'une seule colonne en, disons 4 colonnes,
pour l'impression seulement.
Est-ce qu'il y a un truc?
Merci
H.R.
Avatar
Frédéric Sigonneau
Bonjour,

Cette version est-elle plus proche de ton besoin :

'========================= Sub RedecoupeColonne()
Dim Plage, i&, j&, k&, Page&
Dim ColADecouper, NbLiParPage, AperçuOuImpression

'paramètres du découpage
ColADecouper = InputBox("Colonne à redécouper (lettre)", , "A")
If ColADecouper = "" Then Exit Sub

NbLiParPage = InputBox("Nombre de lignes des 'tranches' de la colonne", , 50)
If NbLiParPage = "" Then Exit Sub

AperçuOuImpression = _
InputBox("Terminer par Imprimer (P) ou Aperçu avant impression (A)", , "A")
If AperçuOuImpression = "" Then Exit Sub

'traitement
Set Plage = Range(Cells(1, ColADecouper), _
Cells(Rows.Count, ColADecouper).End(xlUp))
Sheets.Add
j = 1: Page = 0: k = 0
For i = 1 To Plage.Count Step NbLiParPage
If j > 5 Then
j = 1: Page = Page + 1: k = k + 1
End If
Cells(1 + k + (Page * NbLiParPage), j).Resize(NbLiParPage).Value = _
Plage.Cells(i, "A").Resize(NbLiParPage).Value
j = j + 1
Next i

'impression ou aperçu
With ActiveSheet
If UCase(AperçuOuImpression) = "P" Then
.PrintOut
Else
.PrintPreview
End If
End With

End Sub 'fs
'=========================
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


J'aime beaucoup la première macro, mais elle a un
inconvénient majeur, c'est que la suite de la première
colonne de la première page se trouve sur la première
colonne de la deuxième page, au lieu d'être sur la
deuxième colonne de la première page.
Est-il possible de modifier la macro dans ce sens?
L'avantage majeur de cette macro c'est qu'elle permet la
visualisation avant d'imprimer.
Merci
H.R.

-----Message d'origine-----
Bonjour,

Peut-être cette solution :

http://perso.wanadoo.fr/frederic.sigonneau/code/Impr/Impr
essionColonnesRedecoupees3.txt


Sinon, d'autres idées dans cette page :

http://perso.wanadoo.fr/frederic.sigonneau/code/Impr

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour,
Je dispose d'une feuille simple: une seule colonne sur
3800 lignes; je voudrais l'imprimer mais je voudrais
limiter le nombre de feuilles imprimées, donc
transformer


ce tableau d'une seule colonne en, disons 4 colonnes,
pour l'impression seulement.
Est-ce qu'il y a un truc?
Merci
H.R.


.






Avatar
Horace Rochat
C'est PÂÂÂRFAIT!!
Merci à tous et à toutes


-----Message d'origine-----
Bonjour,

Cette version est-elle plus proche de ton besoin :

'======================== ==
Sub RedecoupeColonne()
Dim Plage, i&, j&, k&, Page&
Dim ColADecouper, NbLiParPage, AperçuOuImpression

'paramètres du découpage
ColADecouper = InputBox("Colonne à redécouper
(lettre)", , "A")

If ColADecouper = "" Then Exit Sub

NbLiParPage = InputBox("Nombre de lignes
des 'tranches' de la colonne", , 50)

If NbLiParPage = "" Then Exit Sub

AperçuOuImpression = _
InputBox("Terminer par Imprimer (P) ou Aperçu avant
impression (A)", , "A")

If AperçuOuImpression = "" Then Exit Sub

'traitement
Set Plage = Range(Cells(1, ColADecouper), _
Cells(Rows.Count, ColADecouper).End
(xlUp))

Sheets.Add
j = 1: Page = 0: k = 0
For i = 1 To Plage.Count Step NbLiParPage
If j > 5 Then
j = 1: Page = Page + 1: k = k + 1
End If
Cells(1 + k + (Page * NbLiParPage), j).Resize
(NbLiParPage).Value = _

Plage.Cells(i, "A").Resize(NbLiParPage).Value
j = j + 1
Next i

'impression ou aperçu
With ActiveSheet
If UCase(AperçuOuImpression) = "P" Then
.PrintOut
Else
.PrintPreview
End If
End With

End Sub 'fs
'======================== ==

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


J'aime beaucoup la première macro, mais elle a un
inconvénient majeur, c'est que la suite de la première
colonne de la première page se trouve sur la première
colonne de la deuxième page, au lieu d'être sur la
deuxième colonne de la première page.
Est-il possible de modifier la macro dans ce sens?
L'avantage majeur de cette macro c'est qu'elle permet
la


visualisation avant d'imprimer.
Merci
H.R.

-----Message d'origine-----
Bonjour,

Peut-être cette solution :



http://perso.wanadoo.fr/frederic.sigonneau/code/Impr/Impr

essionColonnesRedecoupees3.txt

Sinon, d'autres idées dans cette page :

http://perso.wanadoo.fr/frederic.sigonneau/code/Impr

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma
bal !





Bonjour,
Je dispose d'une feuille simple: une seule colonne
sur




3800 lignes; je voudrais l'imprimer mais je voudrais
limiter le nombre de feuilles imprimées, donc
transformer


ce tableau d'une seule colonne en, disons 4
colonnes,




pour l'impression seulement.
Est-ce qu'il y a un truc?
Merci
H.R.


.




.






1 2