Tcd VBA segment
bonjour,
j'ai un code assez basique qui devrait cliquer sur un segment tout seul mais le problème c'est qu'il ne clique pas !!!
Dim i As Integer
For i = 2 To 2
Sheets("test").Select
item= Range("a" & i).Value
ActiveWorkbook.SlicerCaches("Segment_Produit").VisibleSlicerItemsList = Array( _
_
"[Produit].[Produit].&[item]")
le [item] est en réalité une variable que je recupere sur une autre feuille
merci par avance si vous avez une idée je pense que le problème vient du & mais je n'arrive pas à l'intégrer
cdt
edouard002
Bonjour,
Essaie sans grande conviction :
Dim x As String
x = Range("A" & i).Value
x = "[Produit].[Produit]." & "[" & x & "]"nota : la propriété VisibleSlicerItemsList ne fonctionne qu'avec des données OLAP.
Malheuresement cela ne fonctionne pas
j'utilise powerpivot donc je travail bien en olap
merci quand meme
je viens d'essayer le code suivant
MaSource = "[produit].[produit]"
monchamp = produitss
ActiveWorkbook.SlicerCaches("Segment_Produit").VisibleSlicerItemsList = Array(MaSource & ".&[" & monchamp & "]")
quand je fait l'enregistreur de macro j'ai le code suivant
ActiveWorkbook.SlicerCaches("Segment_Produit").VisibleSlicerItemsList = Array( _
_
"[Produit].[Produit].&[nomduchampquejeclique]")
une idée
3 ans plus tard....
Même problème qu'Edouard002 !
Je suis très débutante en vba mais j'ai fini par contourner et résoudre le problème alors je partage au cas où, dans 3 ans, quelqu'un aurait le même souci
Donc :
Dans ma feuille excel j'ai fait une cellule (disons A2) avec une formule :
=concatener("[Segment_Nom].[Nom_Champ_Filtre].&[";A1;"]")
A1 étant la cellule où se trouve ma variable qui doit définir le choix dans le segment.
Et dans la macro :
Dim N As String
N = Range("A2").Value
ActiveWorkbook.SlicerCaches("Segment_Nom").VisibleSlicerItemsList = Array(N)
Exemple : si je veux filtrer un TCD par nom de capitale, je met "Paris" en A1, en A2 j'ai : [Segment_Nom].[Nom_Capitale].&[Paris]
Et quand je lance la macro, le segment filtre sur Paris.
C'est du bricolage mais ça marche chez moi.