Macro excel appel segment [Fermé]

Signaler
-
 roupine -
Bonjour,
J'essai de réaliser une macro pour récupérer la valeur d'un segment excel (slicer en anglais filtre élaboré pour les TCD)


Je souhaire récupérer dans une case A1 par exemple la valeur du segment.
Aparament la fonction serait .SlicerCache
Je ne connais pas la synthaxe exacte, comment récupérer cette valeur dans une feuille intitulé Population pour un segment (slicer) intitulé segment_region1.
J'ai testé quelque chose de ce genre mais ça ne marche pas.

Dim valeur as string
valeur=ActiveWorkbook.sheet("population").Slicer("segment_region1).SlicerCache


Désolé pour la pauvreté de ce code mais je suis débutant en VBA
Pouvez vous m'aider?

1 réponse

Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
2 461
Salut,

L'aide VBA de Microsoft, en ligne, nous donne ceci.

Le SlicerCache possède une propriété Name, peut être essayer de ce côté là.

Dim valeur as string
valeur = ActiveWorkbook.sheet("population").Slicer("segment_region1).SlicerCache.Name

A essayer :

"Sub test()

Dim var As String
Dim i As Integer, x As Integer

x = ActiveWorkbook.SlicerCaches("nom segment").SlicerCacheLevels.Count

For i = 1 To x
If ActiveWorkbook.SlicerCaches("nom segment")..SlicerItems(i).Selected = True Then
var = ActiveWorkbook.SlicerCaches("nom segment").).SlicerItems.Item(i).Caption
End If
Next

range("A1").Value = var

End Sub"