Windows 7 - Tableau_croisé_Dynamique_et_impression

Asked By Fredo(67) on 10-Aug-12 08:51 AM
Bonjour,

j'ai un tableau crois=E9 dynamique
j'ai d=E9fini une zone d'impression

Mais quand je modifie le contenu (et surtout le nombre de ligne) de ma base=
de donn=E9e, bien =E9videmment la taille du TCD change


Comment faire pour que la zone d'impression suive le mouvement
- se r=E9duise si le nombre de ligne du TCD diminue
- augmente si le nombre augmente ?

Ma feuille comporte des lignes d'en-t=EAte qui doivent =EAtre prises en com=
pte pour l'impression

Merci


Merci




MichD replied to Fredo(67) on 10-Aug-12 09:02 AM
Bonjour,

Une fa?on de faire :

'------------------------------------
Sub test()

Dim Pt As PivotTable
With Worksheets("Feuil1") 'nom Feuille ? adapter
Set Pt = .privotables(1) '1 ou le nom du pivottable
.PageSetup.PrintArea = Pt.TableRange2.Address
.PrintPreview    ' .PrintOut  apr?s test
.PageSetup.PrintArea = ""
End With

End Sub
'------------------------------------


MichD
---------------------------------------------------------------
MichD replied to MichD on 10-Aug-12 09:06 AM
Si tu n'as pas de champ "Page" ? ton TDC, tu peux utiliser ceci :

Pt.TableRange1.Address

au lieu de

Pt.TableRange2.Address


MichD
---------------------------------------------------------------
Fredo(67) replied to Fredo(67) on 10-Aug-12 09:49 AM
j'ai saisi et adapt=E9 comme ceci

Sub impression()
Dim Pt As PivotTable
With Worksheets("R=E9serve par entreprise") 'nom Feuille =E0 adapter
Set Pt =3D .pivotables("Tableau crois=E9 dynamique1") '1 ou le nom du p=
ivottable
.PageSetup.PrintArea =3D Pt.TableRange2.Address
.PrintPreview    ' .PrintOut  apr=E8s test
.PageSetup.PrintArea =3D ""
End With

End Sub
Il me r=E9pond propri=E9t=E9 ou m=E9thode non g=E9r=E9e par cet objet

ai-je ait une erreur dans la syntaxe (d'ailleur, ne faut il pas =E9crire
.pivotables au lieu de .privotables




Le vendredi 10 ao=FBt 2012 14:51:44 UTC+2, Fredo(67) a =E9crit=A0:
se de donn=E9e, bien =E9videmment la taille du TCD change
ompte pour l'impression
MichD replied to Fredo(67) on 10-Aug-12 10:06 AM
Il y a une faute d'orthographe sur cette ligne :

Set Pt = .pivotables("Tableau crois? dynamique1") '1 ou le nom du pivottable

Modifie  .pivotables pour .PivotTables(...)   avec 2 T



MichD
---------------------------------------------------------------
Fredo(67) replied to Fredo(67) on 10-Aug-12 10:23 AM
Voil=E0, maintenant =E7a marche super

encore un grand merci


Le vendredi 10 ao=FBt 2012 14:51:44 UTC+2, Fredo(67) a =E9crit=A0:
se de donn=E9e, bien =E9videmment la taille du TCD change
ompte pour l'impression