Tableau croisé Dynamique et impression
Le
Fredo(67)

Bonjour,
j'ai un tableau croisé dynamique
j'ai défini une zone d'impression
Mais quand je modifie le contenu (et surtout le nombre de ligne) de ma base=
de donnée, bien évidemment la taille du TCD change
Comment faire pour que la zone d'impression suive le mouvement
- se réduise si le nombre de ligne du TCD diminue
- augmente si le nombre augmente ?
Ma feuille comporte des lignes d'en-tête qui doivent être prises en com=
pte pour l'impression
Merci
Merci
j'ai un tableau croisé dynamique
j'ai défini une zone d'impression
Mais quand je modifie le contenu (et surtout le nombre de ligne) de ma base=
de donnée, bien évidemment la taille du TCD change
Comment faire pour que la zone d'impression suive le mouvement
- se réduise si le nombre de ligne du TCD diminue
- augmente si le nombre augmente ?
Ma feuille comporte des lignes d'en-tête qui doivent être prises en com=
pte pour l'impression
Merci
Merci
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
---------------------------------------------------------------
Pt.TableRange1.Address
au lieu de
Pt.TableRange2.Address
MichD
---------------------------------------------------------------
Sub impression()
Dim Pt As PivotTable
With Worksheets("Réserve par entreprise") 'nom Feuille à adapter
Set Pt = .pivotables("Tableau croisé dynamique1") '1 ou le nom du p ivottable
.PageSetup.PrintArea = Pt.TableRange2.Address
.PrintPreview ' .PrintOut après test
.PageSetup.PrintArea = ""
End With
End Sub
Il me répond propriété ou méthode non gérée par cet objet
ai-je ait une erreur dans la syntaxe (d'ailleur, ne faut il pas écrire
.pivotables au lieu de .privotables
Le vendredi 10 août 2012 14:51:44 UTC+2, Fredo(67) a écrit :
Set Pt = .pivotables("Tableau croisé dynamique1") '1 ou le nom du pivottable
Modifie .pivotables pour .PivotTables(...) avec 2 T
MichD
---------------------------------------------------------------
encore un grand merci
Le vendredi 10 août 2012 14:51:44 UTC+2, Fredo(67) a écrit :