Discussion :

[moimemessssssssss]

BOnjour,

A partie d'un code VBA je genere des tableaux sur plusieures années que je souhaite imprimer mais j'ai des soucis.
je n'arrive pas à imprimer sur une autre page chaque année et mes tableaux se trouve coupés sur 2 pages alors que je souhaiterais aller à la page suivant si la tableau ne rentre pas dans la page précédente.
je pense ca doit etre de la mise en page avant impression mais je n'arrive pas a le faire
merci de votre.

[Pierre Fauconnier]

Bonjour

Je ne comprends pas ceci, car pour moi, cela veut dire la même chose

mes tableaux se trouve coupés sur 2 pages alors que je souhaiterais aller à la page suivant si la tableau ne rentre pas dans la page précédente

Si tu vas à la page suivante lorsque le tableau ne tient pas en une page, tu as un tableau coupé sur deux pages, non?

[moimemessssssssss]

oui c'est ca mon tableau est coupé sur 2pages alors que je veux qu'il tienne sur une page.
merci de votre aide

[Pierre Fauconnier]

Je ne sais pas si la largeur/hauteur de ton tableau est modifiée avant impression.

Si elle n'est pas modifiée, je te conseille plutôt de passer par la mise en page avant impression, sans VBA. Dans Mise en page/Page, tu as la possibilité d'ajuster le zoom sur x pages en largeur et y pages en hauteur. Tu peux renseigner une seule des deux valeurs ou les deux, selon ton souhait.

Si tu dois passer par vba, tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.PageSetup.FitToPagesWide= x ' Largeur
ActiveSheet.PageSetup.FitToPagesTall= y ' Hauteur

Si tu ne souhaites renseigner qu'une des deux valeurs, tu passes FALSE à la valeur que tu ne souhaites pas renseigner

[moimemessssssssss]

votre technique marche sur ma feuille excel ou y aun tableau et je vous en remercie
cependant, sur une autre feuille excel ou j'ai une vingtaine de tableau
cela marche pas tres bien , j'ai toujours des tableaux sur 2pages a moins d'ajuster la feuille jusqua ce que tout soit illisible mais ce n'est pas la solution.

savez vous dans ce cas la comment faire les ajustement automatiquement pour tous les tableaux?
mercide votre aide

[Pierre Fauconnier]

Dans ce cas, la seule solution que j'entrevois est de définir la zone d'impression tableau par tableau, et d'imprimer à chaque fois la zone avec les paramètres dont j'ai parlé dans mon précédent message.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

feuil1.PageSetup.PrintArea= "A1:d10"