Zone d'impression défini par vba

Résolu
Bourrique66 Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   -  
 Bourrique66 -
Bonjour,
À l’aide de l’enregistreur de macro dans la feuille tableau de bord j’ai défini une zone d’impression qui va de A8 : N8, la ligne 1 du tableau doit être répétée sur toutes les pages (le vrai tableau contient plusieurs centaines de lignes). La zone d’impression change chaque fois que j’ajoute une colonne à l’aide du bouton ajout de colonne. Une colonne j’ajoute et une colonne se masque (ajout de colonne 2019 la colonne 2017 se masque donc la zone d’impression devrait être A8 : O8 dans ce tableau. Comment faire pour que la zone d’impression s’adapte à la dernière colonne non vide ainsi que la dernière ligne remplie. Merci de prendre un peu de votre temps pour m’aider.
Je joins un fichier.
https://www.cjoint.com/c/HEwtjWuEdB4
A voir également:

3 réponses

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour Bourrique66,

Ton classeur avec la macro évolutive en fonction de ton tableau :

https://www.cjoint.com/c/HEwtFeQuoEl
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Bonsoir,

Je ne sais pas si j'ai tout compris, cette macro te permet d'imprimer un tableau variable en nombre de ligne et colonne et s'adaptera automatiquement en nombre de lignes et colonnes

Sub test()
Range([A1], [A65535].End(xlUp).End(xlToRight)).PrintOut Copies:=1
End Sub


et si tu veux simplement sélectionner le tableau variable
Range([A1], [A65535].End(xlUp).End(xlToRight)).select

et pour définir zone d'impression variable
ActiveSheet.PageSetup.PrintArea = Range([A1], [A65535].End(xlUp).End(xlToRight)).Address

0
Bourrique66
 
Bonjour,
Merci à vous deux , les deux solutions fonctionnent parfaitement reste à choisir laquelle prendre. Encore merci
0