Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

Comment imprimer une longue colonne sur une seule page dans Excel ?

Author Xiaoyang Last modified

Supposons que vous ayez une longue liste de données dans une colonne, peut-être 200 lignes, et maintenant vous devez les imprimer, mais lorsque vous imprimez, cela utilise environ 5 pages de papier, avec seulement une colonne à gauche et beaucoup d'espace blanc à droite. Dans Word, vous pouvez diviser en colonnes, mais Excel ne dispose pas de cette fonction. Comment imprimer la longue liste de données sur une seule page pour économiser du papier ?

Imprimer une longue colonne sur une seule page avec une formule

Imprimer une longue colonne sur une seule page avec un code VBA

Imprimer une longue colonne sur une seule page avec Kutools pour Excel


arrow blue right bubble Imprimer une longue colonne sur une seule page avec une formule

Voici une formule complexe que je peux vous présenter pour résoudre ce problème, veuillez suivre ces étapes :

1. Dans une nouvelle feuille de calcul de votre classeur actuel, entrez la formule =SI(DÉCALAGE(Feuil1!$A$1;(COLONNE()-1)*45+LIGNE()-1;0)="";"";DÉCALAGE(Feuil1!$A$1;(COLONNE()-1)*45+LIGNE()-1;0)) dans la cellule A1.

Remarques:
  • Feuil1 est la feuille de calcul qui contient la longue liste que vous souhaitez diviser en colonnes.
  • 45 est le nombre de lignes dans lequel vous souhaitez afficher les données en colonne.
  • Ce sont toutes des variables, et vous pouvez les modifier selon vos besoins.

2. Ensuite, sélectionnez la cellule A1, faites glisser la poignée de recopie vers le bas jusqu'à la ligne 45, puis continuez à faire glisser la poignée de recopie vers la droite jusqu'à ce que les données soient affichées. La longue colonne a été divisée en plusieurs colonnes pour tenir sur une seule page dans une nouvelle feuille de calcul. Voir capture d'écran :

print long column into multiple columns with formula


arrow blue right bubble Imprimer une longue colonne sur une seule page avec un code VBA

Le code VBA suivant peut également vous aider à diviser une longue liste de données en plusieurs colonnes, afin que vous puissiez imprimer les données et économiser du papier.

1. Maintenez les touches ALT + F11 enfoncées, et cela ouvre la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Sub SingleToMultiColumn()
    Dim rng As Range
    Dim iCols As Integer
    Dim lRows As Long
    Dim iCol As Integer
    Dim lRow As Long
    Dim lRowSource As Long
    Dim x As Long
    Dim wks As Worksheet
    Set rng = Application.InputBox _
      (prompt:="Select the range to convert", _
      Type:=8)
    iCols = InputBox("How many columns do you want?")
    lRowSource = rng.Rows.Count
    lRows = lRowSource / iCols
    If lRows * iCols <> lRowSource Then lRows = lRows + 1
    Set wks = Worksheets.Add
    lRow = 1
    x = 1
    For iCol = 1 To iCols
        Do While x <= lRows And lRow <= lRowSource
            Cells(x, iCol) = rng.Cells(lRow, 1)
            x = x + 1
            lRow = lRow + 1
        Loop
        x = 1
    Next
End Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et sélectionnez la liste de données que vous souhaitez diviser dans la boîte de dialogue qui apparaît, voir capture d'écran :

print long column into multiple columns with vba 1

4. Cliquez sur OK, puis entrez le nombre de colonnes dans lequel vous souhaitez diviser. Voir capture d'écran :

print long column into multiple columns with vba 2

5. Cliquez sur OK, la longue colonne a été divisée en cinq colonnes dans une nouvelle feuille de calcul. Voir captures d'écran :

print long column into multiple columns with vba 3 arrow print long column into multiple columns with vba 4

arrow blue right bubble Imprimer une longue colonne sur une seule page avec Kutools pour Excel

La formule longue et le code VBA peuvent être difficiles pour vous, voici une méthode simple et pratique pour résoudre ce problème. La fonction Diviser les données de Kutools pour Excel peut vous aider à diviser rapidement la longue colonne en plusieurs colonnes afin que vous puissiez les imprimer de manière raisonnable.

Kutools pour Excel inclut plus de 300 outils pratiques pour Excel. Essayez gratuitement sans limitation pendant 30 jours. Obtenez-le maintenant.

Une fois que vous avez installé Kutools pour Excel, vous pouvez suivre les étapes suivantes :

1. Cliquez sur Kutools Plus > Diviser les données, voir capture d'écran :

print long column into multiple columns with kutools 1

2. Dans la boîte de dialogue qui apparaît :

  • Cliquez sur le premierdoc-button bouton pour sélectionner le titre de la plage, puis cliquez sur le deuxième doc-buttonbouton pour sélectionner la colonne que vous souhaitez diviser.
  • Ensuite, spécifiez le nombre de lignes que vous souhaitez par page dans Lignes par page imprimée, et entrez le nombre de colonnes souhaité sous Nombre de segments. Voir capture d'écran :

print long column into multiple columns with kutools 2

3. Cliquez ensuite sur OK, la longue liste de données a été divisée en cinq colonnes sur une page. Voir captures d'écran :

print long column into multiple columns with kutools 3 arrow print long column into multiple columns with kutools 4
Remarques:
  • 1. Le titre sera ajouté avant chaque colonne.
  • 2. Si vous cochez l'option Créer un lien avec la feuille active, les données de la nouvelle feuille de calcul peuvent être liées aux données sources.
  • Si vous souhaitez en savoir plus sur cette fonctionnalité, cliquez sur Imprimer plusieurs colonnes.

Meilleurs outils de productivité pour Office

🤖 Kutools AI Aide : Révolutionnez l'analyse de données avec : Exécution intelligente | Générer du code | Créer des formules personnalisées | Analyser des données et générer des graphiques | Appeler les Fonctions améliorées de Kutools
Fonctionnalités populaires : Trouver, mettre en évidence ou marquer les doublons | Supprimer les lignes vides | Combinez les colonnes ou les cellules sans perte de données | Arrondir sans formule...
Super RECHERCHEV : Recherche multi-critères | Recherche multi-valeurs | Recherche multi-feuilles | Correspondance floue...
Liste déroulante avancée : Créer rapidement une liste déroulante | Liste déroulante dépendante | Liste déroulante à sélection multiple...
Gestionnaire de colonnes : Ajouter un nombre spécifique de Colonnes | Déplacer des Colonnes | Alterner l’état de visibilité des Colonnes masquées | Comparer des plages & Colonnes...
Fonctionnalités phares : Mise au point de la grille | Affichage de conception | Barre de formule améliorée | Gestionnaire de Classeur & Feuille de calcul | Bibliothèque d’AutoTexte | Sélecteur de date | Merge Worksheets | Chiffrer/Déchiffrer les cellules | Envoyer un e-mail par liste | Super Filtre | Filtre spécial (filtrer les cellules avec une police en gras/italique/barré...)...
Top15 des ensembles d’outils :12 outils de texte (Ajouter du texte, Supprimer des caractères spécifiques, ...) |50+ Types de graphiques (Diagramme de Gantt, ...) |40+ Formules pratiques (Calculer l’âge en fonction de la date de naissance, ...) |19 outils d’insertion (Insérer un code QR, Insérer une image depuis le chemin, ...) |12 outils de conversion (Convertir en mots, Conversion de devises, ...) |7 outils de fusion & division (Fusion avancée des lignes, Diviser les cellules, ...) | ... et bien plus encore
Utilisez Kutools dans la langue de votre choix – disponible en Anglais, Espagnol, Allemand, Français, Chinois et plus de40 autres !

Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...


Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.

  • Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !

Tous les modules complémentaires Kutools. Une seule installation

La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.

Excel Word Outlook Tabs PowerPoint
  • Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Un installateur, une licence — installation en quelques minutes (compatible MSI)
  • Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
  • Essai complet30 jours — sans inscription, ni carte bancaire
  • Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels