Mise en Page Colonnes

Bonjour,

J'ai en ma possession un fichier excel avec 2 colonnes :

• Code Couleur
• Référence

qui représente beaucoup de ligne.

Je cherche à les mettres en page pour impression.

J'aimerai que pour une mise en page portrait,

a chaque fin de page, les 2 colonnes reviennent en haut de page séparé par un espace et vise versa.

Je vous joint un exemple concret :

Feuille 1 : les infos brutes

Feuille 2 : les infos mis en page comme je le souhaite.

PS : l'insertion de bordures et une ligne grisée sur deux n'est pas obligatoire.

Merci d'avance pour votre aide.

Bonjour,

J'ai réussi à trouver une macro présente sur votre forum qui répond presque à ma demande.

Je vous le fichier.

Il me reste un problème :

J'aimerai qu'a la fin de la page, la suite des données passent sur la second colonne et non sur la seconde page comme dans le fichier joint.

Merci par avance.

Bonjour,

Essaie cette modification dans ta procédure.

Cdlt.

Dim nbp As Long
With Ws_Base
    DerLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    nbp = .PageSetup.Pages.Count
    HauteurLg = Round(DerLig / nbp, 0)

Bonjour,

Merci pour ta réponse.

je suis vraiment novice en macro.

Peut me dire à quel endroit du code doit je coller le code que tu m'as fourni ?

Merci par avance.

Re,

Voir fichier.

Je n'ai pas testé le résultat...

Cdlt.

Merci,

J'ai un message d'erreur

voir pièce jointe

bonjour Jean-Eric

dans le fichier que tu as livré il y a un manque de variables a

NbCol2

Dim NbCol2 As Byte

cela fonctionne et l'aperçu s'affiche

je répondais quand jeff29 a dit qu'il y avais un bug

Pascal

Merci Grisan 29,

mais j'ai 3 fois

NbCol2

Dans la macro. Lequel dois je remplacer ?

Merci d'avance.

bonsoir Jeff29

dans le début du code sub imprime il y a une suite de

Dim......... as ........

Dim NbCol As Byte      'Le nombre de colonne du tableau avant impression

par exemple, mais il n'y a rien a remplacer juste ajouter

pour t'aider voici le début du code

Public Sub Imprime()
Dim Ws_Base As Worksheet    'La feuille qu'on veut imprimer
Dim Ws_Imp As Worksheet     'La feuille finale qu'on imprime
Dim LigDeb As Long          'La premire ligne "hors titre" ˆ imprimer
Dim LigDest As Long         'La ligne de destination
Dim DerLig As Long          'La dernire ligne ˆ imprimer
Dim HauteurLg As Byte       'Le nombre de lignes par page
Dim NbCol As Byte           'Le nombre de copie par page avant impression
Dim NbCol2 As Byte
Dim Col As Byte             'on va boucler sur le nombre de colonnes....
Dim nbp As Long             'nombre de pages ---> Jean-Eric

Pascal

Bonjour Pascal,

Merci pour ta réponse,

J'ai bien modifier le code comme cité, j'ai toujours un message d'erreur et ça ne fonctionne pas

Jeff

bonjour Jeff29

si tu essai sur un mac je ne pourrai pas plus

Pascal

Bonjour Pascal,

Mince. Excel sous MAC ne fonctionne pas comme sur PC ?

Merci en tout cas pour ton aide, j'ai bien un PC sous la main mais il est bien vieux pour le travail à accomplr.

Jeff