[VBA] how to catch the coordinates of a value on a pivot

Question

Hi to all
I have a pivot T (i.e. see below)
Suppose I click inside the  cell with  "16"... I need to have (in VB script) to have the coordinates of the pivot  cell (as well as
GETPIVOTDATA give in formulas).
Do you know a way to obtain (in that example) the "CCC", "z","feb" values when I click on number 16?
I would like to have the text that is written inside the tool tip
thank you
Daniele.b75

Answer 1

I'm sure that there is a better way, but this should work:
Sub PivotTableReading()
    Dim PT As PivotTable
    Dim PF As PivotField
    Dim PI As PivotItem
    Dim rngC As Range
    Dim strVal As String
    Dim strValName As String
    Set rngC = Selection.Cells(1)
    On Error GoTo ErrHandler
    For Each PT In ActiveSheet.PivotTables
        If Intersect(rngC, PT.DataBodyRange) Is Nothing Then GoTo NextPT
        For Each PF In PT.PivotFields
            For Each PI In PF.PivotItems
                If Not Intersect(rngC, PI.DataRange) Is Nothing Then
                    strVal = strVal & IIf(strVal = "", "", Chr(10)) & PF.Name & ": " & PI.Name
                End If
            Next PI
RHere:
        Next PF
NextPT:
    Next PT
    If strValName <> "" Then strVal = strVal & Chr(10) & strValName & ": " & rngC.Value
    MsgBox strVal
    Exit Sub
ErrHandler:
    strValName = PF.Name
    Resume RHere
End Sub