Excel

Le
Emilie
comment imprimer une colonne excel très longue sur le moins de feuille
possible?
Car la colonne prend seulement 1/4 de la largeur de la feuille.
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
Pascal
Le #4546201
Bonjour,
Apercu avant impression et là tu régles les marges. Tu as aussi la
possibilité d'imprimer sur une page en largeur et une page en hauteur
"Emilie"
comment imprimer une colonne excel très longue sur le moins de feuille
possible?
Car la colonne prend seulement 1/4 de la largeur de la feuille.


---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000743-5, 25/05/2007
Analyse le : 26/05/2007 07:31:19
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000743-5, 25/05/2007
Analyse le : 26/05/2007 07:32:25
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

Misange
Le #4546161
bonjour à toi aussi Emilie (si si..)

Rien n'est prévu pour cela, il te faut passer une macro. Tu en as deux
excellents exemples ici :
http://www.excelabo.net/excel/imprimerdiv.php#optimimpression
bonne journée

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

comment imprimer une colonne excel très longue sur le moins de feuille
possible?
Car la colonne prend seulement 1/4 de la largeur de la feuille.


JB
Le #4546061
Bonjour,


Sub Imprime()
FeuilleConvertir = "ConversionTableau"
ligneSource = 2 ' ligne de départ
largeurSource = 4 ' largeur source (nb colonnnes)
hpageDest = 20 ' hauteur page destination
ncolDest = 2 ' nb colonnes destination
ligneDest = 2
'--------
nbenreg = Sheets(FeuilleConvertir).Cells(ligneSource,
1).CurrentRegion.Rows.Count
Sheets("edition").ResetAllPageBreaks
Sheets("edition").Cells.Clear
For col = 1 To ncolDest ' en têtes de colonne
Sheets(FeuilleConvertir).Cells(ligneSource - 1, 1).Resize(1,
largeurSource).Copy _
Sheets("edition").Cells(1, (col - 1) * largeurSource + 1)
Next col
'--
Do While Sheets(FeuilleConvertir).Cells(ligneSource, 1) <> ""
For col = 1 To ncolDest
Cells(ligneSource, 1).Resize(hpageDest, largeurSource).Copy _
Sheets("edition").Cells(ligneDest, (col - 1) * largeurSource +
1)
Sheets("edition").Cells(ligneDest, (col - 1) * _
largeurSource + 1).Resize(hpageDest, largeurSource).BorderAround
Weight:=xlThin
ligneSource = ligneSource + hpageDest
Next
'--
Sheets("edition").HPageBreaks.Add Before:Îlls(ligneDest +
hpageDest, 1)
ligneDest = ligneDest + hpageDest
Loop
Sheets("edition").Select
ActiveSheet.PrintPreview
End Sub

http://cjoint.com/?fAmLiCgvW5


JB

On 25 mai, 22:03, Emilie
comment imprimer une colonne excel très longue sur le moins de feuille
possible?
Car la colonne prend seulement 1/4 de la largeur de la feuille.


Misange
Le #4546031
Bonjour Jacques
Dans ton exemple, pourquoi la première page n'est-elle pas remplie
complètement avant d'en commencer une suivante ? (pense aux arbres !)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonjour,


Sub Imprime()
FeuilleConvertir = "ConversionTableau"
ligneSource = 2 ' ligne de départ
largeurSource = 4 ' largeur source (nb colonnnes)
hpageDest = 20 ' hauteur page destination
ncolDest = 2 ' nb colonnes destination
ligneDest = 2
'--------
nbenreg = Sheets(FeuilleConvertir).Cells(ligneSource,
1).CurrentRegion.Rows.Count
Sheets("edition").ResetAllPageBreaks
Sheets("edition").Cells.Clear
For col = 1 To ncolDest ' en têtes de colonne
Sheets(FeuilleConvertir).Cells(ligneSource - 1, 1).Resize(1,
largeurSource).Copy _
Sheets("edition").Cells(1, (col - 1) * largeurSource + 1)
Next col
'--
Do While Sheets(FeuilleConvertir).Cells(ligneSource, 1) <> ""
For col = 1 To ncolDest
Cells(ligneSource, 1).Resize(hpageDest, largeurSource).Copy _
Sheets("edition").Cells(ligneDest, (col - 1) * largeurSource +
1)
Sheets("edition").Cells(ligneDest, (col - 1) * _
largeurSource + 1).Resize(hpageDest, largeurSource).BorderAround
Weight:=xlThin
ligneSource = ligneSource + hpageDest
Next
'--
Sheets("edition").HPageBreaks.Add Before:Îlls(ligneDest +
hpageDest, 1)
ligneDest = ligneDest + hpageDest
Loop
Sheets("edition").Select
ActiveSheet.PrintPreview
End Sub

http://cjoint.com/?fAmLiCgvW5


JB

On 25 mai, 22:03, Emilie
comment imprimer une colonne excel très longue sur le moins de feuille
possible?
Car la colonne prend seulement 1/4 de la largeur de la feuille.






JB
Le #4545941
Bonjour Misange,

Il s'agit d'un essai:

hpageDest = 65 ' définit la de la page destination

http://cjoint.com/?fApau0ktX5

JB


On 26 mai, 12:47, Misange
Bonjour Jacques
Dans ton exemple, pourquoi la première page n'est-elle pas remplie
complètement avant d'en commencer une suivante ? (pense aux arbres !)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki. free.fr/wikihttp://www.excelabo.net




Bonjour,

Sub Imprime()
FeuilleConvertir = "ConversionTableau"
ligneSource = 2 ' ligne de départ
largeurSource = 4 ' largeur source (nb colonnnes)
hpageDest = 20 ' hauteur page destination
ncolDest = 2 ' nb colonnes destination
ligneDest = 2
'--------
nbenreg = Sheets(FeuilleConvertir).Cells(ligneSource,
1).CurrentRegion.Rows.Count
Sheets("edition").ResetAllPageBreaks
Sheets("edition").Cells.Clear
For col = 1 To ncolDest ' en têtes de colonne
Sheets(FeuilleConvertir).Cells(ligneSource - 1, 1).Resize(1,
largeurSource).Copy _
Sheets("edition").Cells(1, (col - 1) * largeurSource + 1)
Next col
'--
Do While Sheets(FeuilleConvertir).Cells(ligneSource, 1) <> ""
For col = 1 To ncolDest
Cells(ligneSource, 1).Resize(hpageDest, largeurSource).Copy _
Sheets("edition").Cells(ligneDest, (col - 1) * largeurSource +
1)
Sheets("edition").Cells(ligneDest, (col - 1) * _
largeurSource + 1).Resize(hpageDest, largeurSource).BorderAround
Weight:=xlThin
ligneSource = ligneSource + hpageDest
Next
'--
Sheets("edition").HPageBreaks.Add Before:Îlls(ligneDest +
hpageDest, 1)
ligneDest = ligneDest + hpageDest
Loop
Sheets("edition").Select
ActiveSheet.PrintPreview
End Sub

http://cjoint.com/?fAmLiCgvW5

JB

On 25 mai, 22:03, Emilie
comment imprimer une colonne excel très longue sur le moins de feuil le
possible?
Car la colonne prend seulement 1/4 de la largeur de la feuille.- Masqu er le texte des messages précédents -



- Afficher le texte des messages précédents -




Misange
Le #4545851
ben voilà ;-) c'est bien mieux :-)

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonjour Misange,

Il s'agit d'un essai:

hpageDest = 65 ' définit la de la page destination

http://cjoint.com/?fApau0ktX5

JB


On 26 mai, 12:47, Misange
Bonjour Jacques
Dans ton exemple, pourquoi la première page n'est-elle pas remplie
complètement avant d'en commencer une suivante ? (pense aux arbres !)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki.free.fr/wikihttp://www.excelabo.net




Bonjour,
Sub Imprime()
FeuilleConvertir = "ConversionTableau"
ligneSource = 2 ' ligne de départ
largeurSource = 4 ' largeur source (nb colonnnes)
hpageDest = 20 ' hauteur page destination
ncolDest = 2 ' nb colonnes destination
ligneDest = 2
'--------
nbenreg = Sheets(FeuilleConvertir).Cells(ligneSource,
1).CurrentRegion.Rows.Count
Sheets("edition").ResetAllPageBreaks
Sheets("edition").Cells.Clear
For col = 1 To ncolDest ' en têtes de colonne
Sheets(FeuilleConvertir).Cells(ligneSource - 1, 1).Resize(1,
largeurSource).Copy _
Sheets("edition").Cells(1, (col - 1) * largeurSource + 1)
Next col
'--
Do While Sheets(FeuilleConvertir).Cells(ligneSource, 1) <> ""
For col = 1 To ncolDest
Cells(ligneSource, 1).Resize(hpageDest, largeurSource).Copy _
Sheets("edition").Cells(ligneDest, (col - 1) * largeurSource +
1)
Sheets("edition").Cells(ligneDest, (col - 1) * _
largeurSource + 1).Resize(hpageDest, largeurSource).BorderAround
Weight:=xlThin
ligneSource = ligneSource + hpageDest
Next
'--
Sheets("edition").HPageBreaks.Add Before:Îlls(ligneDest +
hpageDest, 1)
ligneDest = ligneDest + hpageDest
Loop
Sheets("edition").Select
ActiveSheet.PrintPreview
End Sub
http://cjoint.com/?fAmLiCgvW5
JB
On 25 mai, 22:03, Emilie
comment imprimer une colonne excel très longue sur le moins de feuille
possible?
Car la colonne prend seulement 1/4 de la largeur de la feuille.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -










Publicité
Poster une réponse
Anonyme