pb de mise en page pour devis

  • Initiateur de la discussion Initiateur de la discussion baladin43
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

baladin43

Guest
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
 
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
 
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+
 
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]
 

Pièces jointes

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]
 

Pièces jointes

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
424
Retour