Macro excel appel segment
Fabien
-
roupine -
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.
Désolé pour la pauvreté de ce code mais je suis débutant en VBA
Pouvez vous m'aider?
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?
A voir également:
- Excel segment connexions existantes
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
1 réponse
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à.
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
"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"