Microsoft 365 saut de page ligne bleu automatique

[farid]

Bonjour
Lorsque j'insère une ligne via le bouton "CommandButton1" ,la ligne bleu en mode saut de page ne suit pas , je dois le faire manuellement hors j'aurai voulu que cette ligne bleu s(ajuste a chaque insertion de nouvelles lignes. je vous met le fichier en PJ.
par avance merci

 

[sylvanu]

Bonjour Farid,
Après avoir ajouté des lignes il vous faut recalculer la zone utile puis redéfinir la zone d'impression avec :

ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & xx

avec xx la dernière ligne.

 

[farid]

Bonjour Farid,
Après avoir ajouté des lignes il vous faut recalculer la zone utile puis redéfinir la zone d'impression avec :

ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & xx 
avec xx la dernière ligne.
[/QUOTE]
Bonjour Sylvanu, 
merci d'être penché sur ma demande .Pourrait tu me dire un peu plus sur xx je n'est pas compris. Jai essayé plusieurs tentatives avant de revenir vers toi .
par avance merci 
Farid

 

[farid]

Bonjour Farid,
Après avoir ajouté des lignes il vous faut recalculer la zone utile puis redéfinir la zone d'impression avec :

ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & xx

avec xx la dernière ligne.

Bonjour Sylvanu,
merci d'être penché sur ma demande .Pourrait tu me dire un peu plus sur xx je n'est pas compris. Jai essayé plusieurs tentatives avant de revenir vers toi .
par avance merci
Farid

 

[cp4]

Bonjour Sylvanu,
merci d'être penché sur ma demande .Pourrait tu me dire un peu plus sur xx je n'est pas compris. Jai essayé plusieurs tentatives avant de revenir vers toi .
par avance merci
Farid

Bonjour Farid, Sylvanu,

C'est la dernière ligne non vide

xx = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'adapter la feuille'

Bonne journée.

 

[farid]

Bonjour Farid, Sylvanu,

C'est la dernière ligne non vide

xx = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'adapter la feuille'

Bonne journée.

Bonjour cp4,
merci de ton implication ,cependant j'ai toujours du mal a adapter sur le fichier que j'avais en Pj .J'ai regardé un peu partout sur le web pour essayé de comprendre mais short. La question , comment l'adapter sur mon tableau. Par avance, merci

 

[sylvanu]

Bonjour Farid, CP4,
Vous avez déjà la fin du tableau repéré par [Fin tableau] et dont la position est calculée par FinTableau + TailleZoneColler, il suffit alors de rajouter cette ligne :

ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & (FinTableau + TailleZoneColler)

voir PJ.

Ou comme le dit CP4 avec :

ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

 

[cp4]

Re,

@farid : Personnellement, je n'ai pas compris l'utilité d'ajuster la zone d'impression car au bout d'un certain nombre d'ajout de ligne (case à cocher), des sauts de page seront ajoutés. Au final, la feuille aura plus d'une page à imprimer. Et, donc à partir de la seconde page, il n'y aura pas d’entête. A mon avis il serait judicieux de gérer ce cas.

Bonne journée.

 

[farid]

Bonjour a vous deux,
merci infiniment pour vos réponses et cela fonctionne très bien.
Je vous souhaite de bonne fête de fin d'année et prenez soins de vous.
Farid