Zone d'impression défini par vba

Résolu/Fermé

Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 - 22 mai 2018 à 21:10
Bourrique66 - 26 mai 2018 à 15:50

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:

Macro imprimer zone d'impression
Spouleur d'impression - Guide
Zone telechargement - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

3 réponses

Réponse 1 / 3

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
22 mai 2018 à 21:33

Bonjour Bourrique66,

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

https://www.cjoint.com/c/HEwtFeQuoEl

Réponse 2 / 3

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié le 22 mai 2018 à 22:23

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

Réponse 3 / 3

Bourrique66
26 mai 2018 à 15:50

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

Discussions similaires

exemplaire

Vidéo : comment changer sa zone géographique ?

A3 paysage en deux A4...est-ce possible?

Discussions similaires

Newsletters