Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim Pt As PivotTable
Dim x As Slicer
Set Pt = Me.PivotTables(1)
Set x = Target.Slicers(1)
'Tu choisis les propriétés Left Et top de
'la cellule que tu désires...
x.Shape.Left = Me.Range("D8").Left
x.Shape.Top = Me.Range("D8").Top
'x.Width = si besoin
End Sub
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
Dim Sl As Slicer
For Each Sl In Target.Slicers
With Sl.Shape
.Height = 48.188976378
.Width = 141.7322834646
.Left = Me.Range("A1").Left
.Top = Me.Range("A1").Top
End With
Next
End Sub
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
Dim Sl As Slicer
Select Case LCase(Target.Name)
Case Is = "toto"
For Each Sl In Target.Slicers
With Sl.Shape
.Height = 48.188976378
.Width = 141.7322834646
.Left = Me.Range("A1").Left
.Top = Me.Range("A1").Top
End With
Next
Case Is = "titi"
For Each Sl In Target.Slicers
With Sl.Shape
.Height = "à définir"
.Width = "à définir"
.Left = "à définir"
.Top = "à définir"
End With
Next
Case Is = "tata"
For Each Sl In Target.Slicers
With Sl.Shape
.Height = "à définir"
.Width = "à définir"
.Left = "à définir"
.Top = "à définir"
End With
Next
End Select
End Sub