Bonjour,
j''ai une macro qui fonctionne tres bien dans excel 2003, mais pas du tout dans 2007.
Elle me permet de modifier les filtres de 2 TCD en une seule manip, et afin que le filtre soit le meme dans les 2 TCD.
pourriez-vous m'aider.
Merci d'avance.
Ingrid.
j''ai une macro qui fonctionne tres bien dans excel 2003, mais pas du tout dans 2007.
Elle me permet de modifier les filtres de 2 TCD en une seule manip, et afin que le filtre soit le meme dans les 2 TCD.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim pt As PivotTable
Dim pi As PivotItem
Dim strField As String
strField = "commune2"
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
If Target.Address = Range("D2").Address Then
For Each ws In ThisWorkbook.Worksheets
For Each pt In ws.PivotTables
With pt.PageFields(strField)
For Each pi In .PivotItems
If pi.Value = Target.Value Then
.CurrentPage = Target.Value
Exit For
Else
.CurrentPage = "(All)"
End If
Next pi
End With
Next pt
Next ws
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
pourriez-vous m'aider.
Merci d'avance.
Ingrid.