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

Excel

6 réponses
Avatar
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.
Signaler un problème avec ce contenu

6 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
Pascal
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" a écrit dans le message de news:

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

Avatar
Misange
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.


Avatar
JB
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 wrote:
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.


Avatar
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/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 wrote:
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.






Avatar
JB
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 wrote:
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 wrote:
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 -




Avatar
Misange
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 wrote:
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 wrote:
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 -