XL 2010 [RESOLU] Problème avec PrintArea

[hatem1234]

Bonjour à tous,
Je fais appel à vos connaissances pour résoudre un petit problème avec la commande PrintArea
Dans un fichier, que je reprends d'une autre discussion, je copie des données "sélectionnées" d'une feuille excel vers une autre pour pouvoir les imprimer par la suite
Le tout se fait bien sauf que la zone d'impression sélectionnée s'arrête au dernier élément copié et n'inclut donc pas le pied de page
Voici le fichier joint avec plus d'explications à l'intérieur
Merci pour votre collaboration

 

[Caillou]

Bonjour,

La variable ligEcrit ne correspond pas à la dernière ligne de la zone d'impression, il faudrait écrire un truc du genre :
ActiveSheet.PageSetup.PrintArea = .Range("a1:z" & (17 + ((ligEcrit \ 36) * 36) + 36)).Address

Caillou

 

[hatem1234]

Bonjour Caillou,
Merci pour la réponse rapide. La zone d'impression semble focntionner par contre, si le nombre de lignes contenant TempsPlein dépasse 14, la macro crée un 2ème bloc vide. Je sais que la zone d'impression sera la bonne par contre ce sera parfait si le nombre de bloc sera en fonction du nombre de lignes contenant TempsPlein
Merci bien

 

[hatem1234]

Bonjour Caillou et le forum,
voilà avec ton aide j'ai pu ajuster le PrintArea et tout fonctionne bien maintenant
Je joins le fichier final pour le bénéfice de tous
Merci