Bonjour à tous,
Je souhaiterais qu'a l'ouverture de plusieurs segments de mon TCD ceux-ci se placent à un endroit que j'ai choisi de ma feuille.
J'ai trouvé ce code qui me place chaque segment mais le soucis c'est que lorsque j'en affiche plusieurs, il les superpose :
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
Dim Sl As Slicer
For Each Sl In Target.Slicers
With Sl.Shape
.Height = 150
.Width = 141.7322834646
.Left = Me.Range("I26").Left
.Top = Me.Range("I26").Top
End With
Next
End Sub
Ce que je voudrais c'est qu'ils se mettent les uns à la suite des autres quand j'en selectionne plusieurs. Par exemple le 1er segment en I26 (comme dans le code) le 2ème en K26, le 3ème en M26....
Un petit coup de main serait le bienvenue, merci !
Je souhaiterais qu'a l'ouverture de plusieurs segments de mon TCD ceux-ci se placent à un endroit que j'ai choisi de ma feuille.
J'ai trouvé ce code qui me place chaque segment mais le soucis c'est que lorsque j'en affiche plusieurs, il les superpose :
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
Dim Sl As Slicer
For Each Sl In Target.Slicers
With Sl.Shape
.Height = 150
.Width = 141.7322834646
.Left = Me.Range("I26").Left
.Top = Me.Range("I26").Top
End With
Next
End Sub
Ce que je voudrais c'est qu'ils se mettent les uns à la suite des autres quand j'en selectionne plusieurs. Par exemple le 1er segment en I26 (comme dans le code) le 2ème en K26, le 3ème en M26....
Un petit coup de main serait le bienvenue, merci !