Re : VBA pour printout identique à 'fichier_imprimer' excel 2010
Bonjour le forum, bonjour et merci à Staple1600
J'ai bien essayé ton code, qui m'apprend beaucoup sur d'autres techniques de programmation. C'est beau, c'est concis, et je ne comprends pas toutes les instructions, en particulier :
- Set pf = [_FilterDataBase] : je ne trouve pas cette zone nommée-
pf.Offset(1).Resize(pf.Rows.Count).SpecialCells(12).EntireRow.Delete Shift:=xlUp : je comprends bien que tu utilises les cellules visibles, mais si tu veux bien m'expliquer le fonctionnement de cette instruction, je ne suis pas familiarisé avec le resize, je ne comprends pas le décalage offset(1)... et la logique de cet ensemble.
Pour le reste :
Bien entendu je me suis mal expliqué :
- les sous-totaux que j'insère sont des sous-totaux par page, provoqués par la rupture de page, et non pas par la rupture de données telles que tu me le montres. Et ces sous-totaux ne sont pas remis à 0 à chaque page, chaque sous-total reprend la somme de l'intégralité des pages qui le précèdent.
- ces sous-totaux se composent :
- d'une première ligne , libellée "Sous-Total à reporter:", se situant au bas de la feuille que l'on quitte
- et d'une seconde ligne, libellée "Report du Sous-Total :", située en haut de la page suivante.
c'est pourquoi dans ma routine
GestSautPage() je cherche l'emplacement de la rupture de page, et qu'une fois trouvée je prends la ligne précédente pour insérer à cet emplacement ma première ligne de sous-total par page.
Si tu veux bien tester le code de mon post précédent, tu verras que l'on obtient bien ce résultat. Ce code est sans danger et n'intervient pas sur ton environnement.
- par contre, ton module de suppression des sous-totaux peut peut-être me convenir. Bien entendu, il semble bien plus performant que le mien, à condition qu'il puisse également supprimer les sauts de page, et surtout qu'il ne soit pas dépendant de filtres (Outline.ShowLevels) que pour ma part je n'utilise pas sur ces documents car je n'en ai pas besoin. Mais là encore, je n'ai sans doute pas tout compris !
C'est dur d'être mauvais ! Mais je compte sur toi pour progresser.
Alors j'attends tes commentaires, et ton aide.
D'avance, encore merci
Cordialement