Zone imprim dans 3 pages

Résolu/Fermé
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 10 mai 2014 à 15:59
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 12 mai 2014 à 02:20
Bonjour,
j'ai un soucis avec un fichier de 3 feuilles avec le même nombre de colonnes a imprimer
colonnes de "A1" à "O" dont la longueur en lignes varie sur chaque feuille évidement si non ce serait trop simple lol
Je voudrais mettre un bouton sur chaque feuille pour imprimer
doit on faire une macro pour chaque feuille?
comment déterminer la dernière ligne a imprimer ?
je sais faire par rapport a une colonne mais pas sur plusieurs
merci de votre aide
surplus
A voir également:

3 réponses

Raymond PENTIER Messages postés 58397 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 26 avril 2024 17 094
11 mai 2014 à 18:10
Je n'ai pas tout compris ...
Mais je te rappelle qu'il existe les Affichages personnalisés !
Tu sélectionnes la première page, tu fais Définir la zone d'impression et tu crées un affichage personnalisé que tu appelles Page1
Tu recommences avec les 2 autres pages.
Il te suffira ensuite d'ouvrir l'un des affichages personnalisés, y compris d'ailleurs le tableau complet avec les 4 pages.
Et même si tu modifies des données, il n'est pas nécessaire de modifier les affichages personnalisés.
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
Modifié par surplus le 11/05/2014 à 20:07
bonjour
mon problème c est que la liste change au fur et a mesure des mises a jour
en fait il me faut trouver la dernière ligne a imprimer
les affichages personnalisés cela revient a definir 3 zones d'impression?
merci
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 685
11 mai 2014 à 23:02
Bonjour,

doit on faire une macro pour chaque feuille?

Si la macro associée au bouton est dans un module elle fonctionne pour toutes les feuilles.

comment déterminer la dernière ligne a imprimer ?

Avec ce code, tu as la dernière ligne de chaque feuille :
Public Sub test()
Dim lig As Long, mxl As Long, col As Integer
With ActiveSheet
For col = 1 To 15
lig = .Cells(.Rows.Count, col).End(xlUp).Row
If mxl < lig Then mxl = lig
Next col
End With
MsgBox mxl
End Sub
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
12 mai 2014 à 02:20
bonjour
c'est cool
merci de votre aide et de vos précisions
a bientot
0