help with this code please

[Maxwolf]

ok i have this code to retrieve select item list in a range of cell:

Sub Macro1()
Dim ar
ar = ThisWorkbook.SlicerCaches("Segment_Scolarité").VisibleSlicerItemsList

For i = 1 To UBound(ar)
    Range("E" & i) = ar(i)
   
Next

End Sub

it is working BUT the result look like this in the cell:

[Plage1].[Scolarité].&[1-Primaire]
[Plage1].[Scolarité].&[2-Secondaire]
[Plage1].[Scolarité].&[3-Apprenti]
[Plage1].[Scolarité].&[4-Collège]



I would like the result to look like this:

1-Primaire
2-Secondaire
3-Apprenti
4-Collège

 

[Chihiro]

Just use string manipulation.

ex.

Dim x
For i = 1 To UBound(ar)
    x = Split(ar(i), "[")
    x = Replace(x(UBound(x)), "]", "")
    Range("E" & i) = x
Next

 

[Maxwolf]

yes, thank you. it is working very well.