Accéder au contenu principal

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

Author: Xiaoyang Last Modified: 2025-05-27

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évolutionner l'analyse des données basée sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les Fonctions améliorées
Fonctionnalités populaires : Trouver, mise en évidence ou marquer les doublons   |  Supprimer les lignes vides   |  Consolider les colonnes ou les cellules sans perdre de données   |   Arrondir sans formule ...
Super RECHERCHEV : RECHERCHEV avec critères multiples    RECHERCHEV avec valeurs multiples  |   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 multi-sélection ....
Gestionnaire de colonnes : Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages & colonnes ...
Fonctionnalités en vedette : Mise au point de la grille   |  Affichage de conception   |   Barre de formule améliorée    Gestionnaire de classeur & feuille de calcul   |  Bibliothèque dAutoTexte (Auto Text)   |  Sélecteur de date   |  Fusionner les données   |  Crypter/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 ensembles d'outils12 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 plus

Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...


Office Tab apporte une interface à onglets à Office, et facilite grandement 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 pour vous chaque jour !