Option Explicit
Private Sub Workbook_Open()
Me.RefreshAll
End Sub
Option Explicit
Private Sub CommandButton1_Click()
ThisWorkbook.RefreshAll
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
' A2:C19 étant la zone de données prise en compte dans le TCD
' à adapter selon les besoins
If Not Intersect(Target, Range("A2:C19")) Is Nothing Then
ThisWorkbook.RefreshAll
End If
End Sub
Bonjour dav, Pierrot
pour un rafraichissement automatique du TCD sans devoir utiliser un bouton, il est préférable d'utiliser ceci:à+Code:Private Sub Worksheet_Change(ByVal Target As Range) ' A2:C19 étant la zone de données prise en compte dans le TCD ' à adapter selon les besoins If Not Intersect(Target, Range("A2:C19")) Is Nothing Then ThisWorkbook.RefreshAll End If End Sub
Philippe
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:C19")) Is Nothing Then
Sheets("NOmFeuilleTCD").PivotTables(1).PivotCache.Refresh
End If
End Sub