Msgbox sur tableau croisé dynamique

Bonjour à tous,

Savez-vous s'il est possible de mettre une msgbox sur un résultat de TCD s'il vous plait ?

En réalité, je calcule des écarts, je souhaite avoir une msgbox si mon écart n'est pas égal à 0.

un petit fichier est en pj avec un tcd égal à 0.

Merci à tous par avance !

Bonjour,

Afin de répondre à ton problème, il faut que tu ailles dans l'éditeur VBA et que tu mette dans la feuille associé à ton TCD le code suivant :

Option Explicit

Dim Tdc As PivotTable

Private Sub Worksheet_Calculate()
    Set Tdc = Feuil1.PivotTables(1)

    MsgBox Tdc.TableRange2.Address
    If Not Range(Tdc.DataBodyRange.Address) = 0 Then
        MsgBox ("Attention la différence est égale à : " & Range(Tdc.DataBodyRange.Address).Value)
    End If

End Sub

Bonne continuation

Merci’ infiniment !!!!!