Bonjour,

Je cherche la possibilité de déclencher une macro dès que le slicer "MOIS" est sélectionné et modifié.

Ce slicer n'est pas lié à un TCD, mais à un tableau formaté comme tel.

J'ai essayé les solutions suivantes mais sans succès.

Merci pour votre aide. Fabian.

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
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveWorkbook.SlicerCaches("MOIS").Selected = True Then
MsgBox ("Changement1")
End If
End Sub
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
If ActiveWorkbook.SlicerCaches("MOIS").Selected = True Then
MsgBox ("Changement2")
End If
End Sub
Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable)
MsgBox ("Changement3")
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveWorkbook.SlicerCaches("MOIS").Selected = True Then
MsgBox ("Changement4")
End If
End Sub
Private Sub Worksheet_TableUpdate(ByVal Target As TableObject)
If ActiveWorkbook.SlicerCaches("MOIS").Selected = True Then
MsgBox ("Changement5")
End If
End Sub