Zone d'impression pour TCD

[Celeda]

Bonjour,

Je vous joins ce petit fichier avec un TCD qui recence le nom des auteurs : je dois filtrer selon l'auteur et faire une impression de chaque résultat.

Le fait est que j'ai de plus en plus d'auteurs, de regroupement par auteur pour certaines conso, et que je doive le faire très très régulièrement par jour, par semaine.

Bref, je suis entrain de me pourrir :angry: toute seule ma vie excellienne avec la manip de filtrer les auteurs et ensuite définir une impression à chaque fois, parce que selon le nombre de données, et bien la zone d'impression change (normal!)

Hors,j'aimerais bien automatiser cette manip une bonne fois pour toute en me basant soit une page normale de données, standard, soit sur la dernière ligne de données filtrees.

Je me permets donc de vous solliciter et je vous en remercie à l'avance, si cela est faisable (of course!). :kiss:

Celeda [file name=ZoneImpressionTCD.zip size=4707]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ZoneImpressionTCD.zip[/file]

 

[Hervé]

Bonjour celeda et le forum

essaye cette macro, a placer dans le module de la feuille adéquate :

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
ActiveSheet.PageSetup.PrintArea = Range('a5').CurrentRegion.Address
End Sub

En espérant que je ne zop pas trop,

Cordialement

 

[WILFRIED]

SAlut Celeda,

Voici un USF qui devrait correspondre à tes attentes.

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

 

[Monique]

Bonjour,

Par formule
Dans Insertion - Nom - Définir, on peut définir la 'Zone_d_impression'
Si le mot 'Total' est toujours en ligne 4 :
=DECALER($A$2;;;NBVAL(DECALER($A$2:$A$1000;0;EQUIV('total';$A$4:$K$4;0)-1))+2;EQUIV('total';$A$4:$K$4;0))

K4 au cas où le TCD irait jusqu'à la colonne K

Ou bien celle-ci, carrément, ligne 4 et colonne A entières
=DECALER($A$2;;;NBVAL(DECALER($A:$A;0;EQUIV('total';$4:$4;0)-1))+2;EQUIV('total';$4:$4;0))

 

[Celeda]

Bonjour,


oh alors là, mon coeur s'est envolé!!!!!!

en double vba et en formules!!!! hmy:

vous êtes vraiment supers gentils !!le!! ;je vais de ce pas récupérer le tout et tout essayer!!!


merci merci merci merci merci merci merci merci merci merci merci merci merci merci merci merci merci merci merci merci merci merci

Celeda :kiss:

(ps rv : géniale ta signature!!!!!on voit les pros !!!des gifs)

 

[Monique]

Re,

Dans ton message, tu parles de lignes, comme si le nb de colonnes était toujours de 3.
Si oui :
=DECALER($A$2;;;NBVAL($C:$C)+2;3)

 

[Celeda]

BOnjour le Forum,

hé hé hé que je suis comblée :

alors dans l'odre ! Et je vais vous confier un petit secret très féminin qui va en faire sourire plus d'un !!!

à chaque fois que je reçois un choix de macros ou de formules
c''est comme si j'étais au salon d'essayage d'un grand couturier et que j'essayais une nouvelle robe!!!!
et alors Celeda se prend pour un manequin!!!
Je me suis éclatée à tester les trois solutions!!!!!
sauf que je ne pouvais pas me regarder dans le miroir!!!


en premier :
Merci RV : court, efficace, instantanné, me colle à la peau!!

Merci Will : ohla la la, là j'ai les chaussures et le chapeau assortis!!!!
c'est le ruban qui enveloppe ma taille et se ferme avec un beau nœud!!!
c'est d'enfer !!

Merci Momo : c'est new pour moi!!!! Cela change mon look du tout au tout!!
je ne connaissais pas du tout et c'est la troisième Decaler qui
sied très bien puisque le tcd reste tel quel!!

enfin vous comprenez pourquoi maintenant je suis comblée!!!
je n'en imaginais pas tant au départ; mais j'ai bien fait de poster!!

à conserver ce fil pour proposer le menu de choix ou à la carte !!!!


Celeda :kiss: