Discussion :

[Alaedjens]

Bonjour,
je suis entrain d'utiliser un Tableau Croisé Dynamique (avec un nombre de lignes et colonnes qui varie) afin de présenter des données qui proviennent d'une base de données, j'ai pu connaitre le nom de mon TCD à l'aide d'une Macro VBA Excel, mais je voudrais récupérer la plage des cellules où s'affiche mon TCD pour l'utiliser, par la suite, dans une autre Macro VBA Excel. quelqu'un peut-il m'aider ? merci d'avance !

[Invité]

Bonjour,

Ci-joint, une macro pour connaître les différentes zones d'un TCD :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub PresenterLesDifferentesZonesDUnTCd()
 
Dim Pvt As PivotTable
 
    Set Pvt = ActiveSheet.PivotTables("TCD1") ' A modifier selon le nom de votre TCD
 
    Pvt.TableRange2.Select
    MsgBox "Aire TableRange2 du Tcd : " & Pvt.TableRange2.Address
 
    Pvt.TableRange1.Select
    MsgBox "Aire TableRange1 du Tcd : " & Pvt.TableRange1.Address
 
    Pvt.ColumnRange.Select
    MsgBox "Aire ColumnRange du Tcd : " & Pvt.ColumnRange.Address
 
    Pvt.DataBodyRange.Select
    MsgBox "Aire DataBodyRange du Tcd : " & Pvt.DataBodyRange.Address
 
    Pvt.PageRangeCells.Select
    MsgBox "Aire PageRangeCells du Tcd : " & Pvt.PageRangeCells.Address
 
    Pvt.RowRange.Select
    MsgBox "Aire RowRange du Tcd : " & Pvt.RowRange.Address
 
    MsgBox "Aire SourceData du Tcd : " & Pvt.SourceData
 
    Set Pvt = Nothing
 
 
End Sub

Cordialement.