Zone imprim dans 3 pages [Résolu/Fermé]

Messages postés
640
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
28 juillet 2019
- - Dernière réponse : surplus
Messages postés
640
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
28 juillet 2019
- 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
Afficher la suite 

3 réponses

Messages postés
50095
Date d'inscription
lundi 13 août 2007
Statut
Non membre
Dernière intervention
21 octobre 2019
10961
0
Merci
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.
surplus
Messages postés
640
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
28 juillet 2019
3 -
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
Messages postés
15079
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
23 juin 2018
3703
0
Merci
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
Messages postés
640
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
28 juillet 2019
3
0
Merci
bonjour
c'est cool
merci de votre aide et de vos précisions
a bientot