Bonjour,
J'utilise le code suivant pour afficher les items sélectionnés dans 1 segment. Ça marche mais je voudrais le faire quelque soit le nombre de segment (2,3,4).
Il faut faire une boucle sur le nombrer de slicer mais où et comment?
Merci pour l'éclaircissement.
J'utilise le code suivant pour afficher les items sélectionnés dans 1 segment. Ça marche mais je voudrais le faire quelque soit le nombre de segment (2,3,4).
Code:
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim x As Slicer, ShTCD As Worksheet, A As Long, ShTB As Worksheet
Dim B As Long, NbItem As Long
With ThisWorkbook
'Nom de la feuille où est le segment (TCD)
Set ShTCD = .Worksheets("TCD")
Set ShTB = .Worksheets("TB")
With .SlicerCaches(1)
'Remettre à blanc
ShTB.Range("K10:K15").ClearContents
'Donne le nombre d'items dans la liste du segment
NbItems = .SlicerItems.Count
'Une boucle sur chaque item du segment
For B = 1 To NbItems
With .SlicerItems(B)
'Si l'item du segment est sélectionné
If .Selected = True Then
'Incrémentation de la variable A
A = A + 1
'Copie de la valeur de l'item vers la cellule Ax
ShTB.Range("K" & 9 + A) = .Value
End If
End With
Next
End With
End With
End Sub
Il faut faire une boucle sur le nombrer de slicer mais où et comment?
Merci pour l'éclaircissement.