Discussion :

[tamkim]

Bonjour à tous,

J'ai un tableau croisé dynamique croisé, que je mets à jour via une requête sur une base de données oracle. Mon problème est le suivant: j'aimerai pouvoir définir la zone d'impression du tcd et mettre des sauts de page réguliers, pour une mise en forme automatique du tableau à l'impression.

Voilou, je vous souhaite une bonne journée et merci d'avance pour vos réponses!

[ouskel'n'or]

Pour avoir la zone d'impression du TCD, utilise CurrentRegion.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim plage As String
plage = Range("A1").CurrentRegion.Address

ou A1 est une cellule à l'intérieur du TCD.
Ensuite, pour le nombre de sauts de page, regarde à Pagesetup, dans l'aide, les propriétés FitToPageswide et FitTopagestall qui permettent de fixer le nombre de pages en largeur et/ou en hauteur

[tamkim]

Bonjour, et merci pour ta réponse! J'ai essayé de l'appliquer, j'ai juste un petit problème .

Ma première colonne est : DATE.
Quand je la classe par jour la plage sélectionnée s'arrête juste après le premier jour, quand je la regroupe par mois, la plage s'arrête juste après le premier mois.

Edit : captures d'écran pour mieux voir le problème
________

[ouskel'n'or]

Normal, CurrentRegion ne fonctionne que pour une plage homogène (sans ligne vide) J'ai trouvé ça dans l'aide en ligne (regarde à TableRange1 -> F1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("Feuil1").Activate
Range("A4").PivotTable.TableRange1.Select

La feuille doit être activée avant la sélection.
Tu dis
A+

PS - Pour avoir l'adresse de la plage, teste en mettant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Plage = Range("A4").PivotTable.TableRange1.Address

Sinon, utilise Select puis Selection.address

[tamkim]

Et bien nickel, çà marche !!! Merci beaucoup pour ton aide précieuse !