Discussion :

[a.dequidt]

J'ai fait comme tu m'as dit, avec le point d'arret bien sur

MAis j'ai une erreur '1004'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Impossible de définir la propriété PrintArea de la classe PageSetup

Ce message s'affiche a la hauteur de la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FL1.PageSetup.PrintArea = "" 'on supprime l'ancienne zone d'impression

[ouskel'n'or]

Mets cette ligne en remarque et refais le test.
On obtient ce dode en enregistrant la macro. Curieux qu'il provoque une erreur. Je vais voir si je trouve la raison.
A+

Edit
Ta feuille n'est pas verrouillée ? (à tout hasard)

[a.dequidt]

Bon ba maintenant ça marche

mais a ce que j'ai compris, la zone d'impression commence a A1, et dès qu'il rencontre une cellule vide, il la définie comme en dehord de la zone d'impression.
Or dans mon cas,
au niveau de la largeur, je sais qu'il faut aller jusqu'a la cellule K (incluse dans la zone d'impression).
quand a la hauteur, je peux la récupérer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A65535").End(xlUp).Row

[ouskel'n'or]

Non, Range("A65535").End(xlUp).Row te donne la dernière ligne renseignée de la colonne A
Si tu veux la dernière ligne renseignée de la colonne K, alors tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("K65535").End(xlUp).Row

[ouskel'n'or]

Edit
Mais tu remarqueras que dans mon code je n'utilise jamais une colonne fixe (A, B ou Z) Je cherche d'abord la colonne avant de chercher la dernière ligne.

[a.dequidt]

Woupoupoup, j'ai lancer l'enregistreur de macro, séléctionner ce que je voulais, puis Fichier>Zone d'impression>Définir.

Mais j'ai un tableau qui s'affiche sur 2 pages.
est il possible de savoir sur quelle page est telle ou telle cellule?
Car comme j'ai en memoire les lignes, si la 1ere ligne est sur une page et la derniere ligne sur la page d'après, j'insere un saut de ligne avant la premiere ligne du tableau

[ouskel'n'or]

Le code que je t'ai passé fait (difficilement mais il le fait) ça. Je ne peux pas te donner une autre solution, je n'en vois pas d'autre.

[a.dequidt]

J'ai trouvé comme une grande

j'ai chercher les sauts de pages

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim num_saut_ligne As Long
num_saut_ligne = Worksheets(1).HPageBreaks(1).Location.Cells(1).Row
' Ici on récupere le n° de la ligne apres le 1er saut de page dans l'onglet n°1

Ensuite j'ai regarder si num_saut_ligne etait compris entre la 1ere ligne et la derniere ligne de mon tableau
si c'etait le cas, j'insere un saut de ligne avant la 1ere ligne