Regrouper une liste sur plusieurs colonnes

Question

Bonjour, 

Je souhaiterai savoir comment réduire le nombre de page à l'impression en utilisant plusieurs colonnes Excel automatiquement.

Je m'explique, voici un exemple de tableau sur 3 colonnes qui comporte 1200 références :

0001 - Produit A - Prix A
0002 - Produit B - Prix B
0003 - Produit C - Prix C
....
1200 - Produit XXX - Prix XXX

Aujourd'hui, cela prend 1/3 d'une page A4 mais sur xx pages. 

Je souhaiterai utiliser l'espace perdu en utilisant toutes les colonnes disponibles à droite de ma feuille Excel

Imaginons que nous arrivions à la ligne 0030 en bas de page, je souhaiterai que la référence 0031 remonte en haut et en face de la référence 0001 de la première page plutôt que d'être sur la deuxième page.

J'espère que je me suis bien exprimé.

Merci.

Configuration: Windows XP / Firefox 3.6.8

ccm81 · Answer

peut etre une solution
recopier sur une autre feuille copie le catalogue remis en page
pour celà

nommer tab le catalogue complet 
Créer une feuille et la nommer Copie

placer un bouton sur la feuille catalogue
y affecter le code 

modifier les constantes selon l'utilisation

Option Explicit

Private Sub CommandButton1_Click()

Const nbCoPr = 2       ' nombre de colonnes pour 1 produit
Const nbLi = 4         ' nombre de lignes imprimables par feuille
Const nbCo = 3         ' nombre de colonnes (de produit) souhaitées par feuilles
Const PremLi = 1       ' premiere ligne sur la feuille Copie

Dim nbPr As Long       ' nombre de produits du catalogue
Dim NuFe As Long       ' numéro de feuille imprimable (NbLi x nbCo)
Dim nupr As Long       ' numéro de produit dans le catalogue
Dim LiTab As Long      ' Ligne courante du catalogue (nommé Tab sur la feuille)
Dim lp As Long         ' Ligne courante sur la feuille Copie
Dim cp As Long         ' Colonne courante sur la feuille Copie
Dim co As Long         ' colonne de service
Dim NuCoPr As Long     ' Numéro colonne produit sur la feuille Copie

  Worksheets("Copie").Range("a1:z1000").ClearContents
  nbPr = Range("Tab").Rows.Count
  NuFe = 1
  For nupr = 1 To nbPr
    LiTab = nupr
    lp = PremLi + ((nupr - 1) Mod (nbLi)) + nbLi * ((nupr - 1) \ (nbLi * nbCo))
    If (nupr Mod (nbLi * nbCo)) = 0 Then
      co = nbCo * nbCoPr - 1
      NuFe = NuFe + 1
    Else
     co = 1 + ((nupr - 1 - (nbLi * nbCo) * (NuFe - 1)) \ nbLi) * nbCoPr
    End If
    For NuCoPr = 1 To nbCoPr
      cp = co + NuCoPr - 1
      Worksheets("Copie").Cells(lp, cp).Value = Range("Tab").Cells(LiTab, NuCoPr).Value
    Next NuCoPr
  Next nupr
  
End Sub

voir en exemple

http://www.cijoint.fr/cjlink.php?file=cj201011/cijwdlFuUd.xls 

bonne suite

Raymond PENTIER · Answer

Bonjour moreauste.

Et sans macro, en C2 la formule =A32, à recopier dans la plage C2:I31.
Puis sélectionner C2:I31 et faire Copier/Collage spécial Valeurs

* attention, travailler sur une copie, pas sur le fichier original : on ne sait jamais !

Cordialement.

Patrice33740 · Answer

Bonjour, 

Autre solution : 
Ouvre un document Word vierge,  
Met le en page avec 2 ou 3 colonnes 
Copie ton tableau Excel dans Word. 

Patrice 
Nicolas dit toujours : « C'est facile quand on connait la réponse ! »

ccm81 · Answer

la technique de patrice33740 marche bien un simple copier/coller transporte tout
sinon avec la macro il faut aussi copier le format
pour transporter la couleur et la largeur ajouter après l'instruction Worksheets("Copie")... les deux lignes 

      Worksheets("Copie").Cells(lp, cp).Interior.Color = Range("Tab").Cells(LiTab, NuCoPr).Interior.Color 
      Worksheets("Copie").Cells(lp, cp).ColumnWidth = Range("Tab").Cells(LiTab, NuCoPr).ColumnWidth 

bonne suite

Regrouper une liste sur plusieurs colonnes

4 réponses

Newsletters