pb de mise en page pour devis

[baladin43]

Bonjour,

Voici le pb. J'ai fait une trame pour réaliser des devis avec Q, Pu, designation etc...et les différentes formules de calcul.
En bas de la page figure le montant total ht
puis la tva et le montant ttc.
La question est la suivante : sachant qu'un devis peut faire une seule page ou plusieurs pages, peut on faire en sorte que les montants finaux avec les formules de calcul(ht,tva,ttc) soient toujours en fin de dernière page du devis qq soit sa longueur, sans avoir à supprimer des lignes ou en rajouter. Me suis je bien fait comprendre ?

merci

 

[ERIC S]

Bonjour

pas trop avec ton histoire d'ajouter/enlever

une approche consiste à masquer les lignes vides avant impression

A+

 

[baladin43]

oui, en fait, il me faut supprimer les lignes vides entre mes formules de montant finaux et les articles, ou en rajouter si le devis est plus long. Comment faire autrement que 'insérer ligne' ou 'supprimer ligne' ?
Comment masquer les lignes vides à l'impression ?
merci

 

[ERIC S]

re

par macro cela doit être possible je peux regarder pour un exemple si tu veux

A+

 

[ERIC S]

re

déjà à la main regarde si c'est ce que tu veux

tu vas à la gauche de ta feuille (là où il y a les n° lignes

tu cliques (1ère ligne vide et tu descend en restant cliqué jusqu'au total;
tu as sélectionné toute la zone
tu fais format/ligne/masquer

avec l'aperçu ou une impression vérifie le résulat

A+

 

[baladin43]

Ok, très bien ca marche, mais pour les faire réapparaitre ?

 

[ERIC S]

re

essai joint
dès qu'on sélectionne une cellule de la ligne 'Total', possibilité insertion

A+ [file name=essaiinsertion.zip size=8872]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaiinsertion.zip[/file]

 

[ERIC S]

re

tu sélectionnes une ligne avant une ligne après ou dans l'angle haut gauche (sélectionne toute la page)

format ligne afficher

A+

 

[Marc_du_78]

Bonjour baladin43, ERIC S, le Forum,
Une autre approche de ton problème qui devrait te satisfaire.
En vous souhaitant une bonne fin de semaine. [file name=PiedAuto.zip size=19923]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PiedAuto.zip[/file]

 

[Marc_du_78]

re
avec mes excuses, envoyé mauvais fichier.

 

[Marc_du_78]

j'avais un accent, tres mauvais pour moi. [file name=PiedAutoCorrige.zip size=20666]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PiedAutoCorrige.zip[/file]

 

[Marc_du_78]

Merci de remplacer le code du module 1 par celui-ci

Sub PiedDevisFacture()
Application.ScreenUpdating = False
Sheets('Pied').Select
Range('A1:M17').Select 'Sélection de la zone 'pied de page'
Selection.Copy 'Copie du 'pied de page'
Sheets('Facture').Select
ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste 'Collage du 'pied de page'
ActiveSheet.PageSetup.PrintArea = '$A:$M'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'Impression
Selection.Delete Shift:=xlUp 'pour supprimer 'pied de page' et recommencer
Range('B3').Select
Application.ScreenUpdating = True
End Sub

En te priant de m'excuser car j'ai été dérange de nombreuses fois.