Déclencher une macro par la modification d'un segment (slicer)
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:
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 |
