VBA Forcer la valeur d'un slicer à l'ouverture

Bonjour à tous,

Je suis en galère lol et je compte sur votre précieuse aide.

En effet, je souhaiterai à l'ouverture d'un fichier Excel, sélectionner dans mon Slicer une seule valeur sans que cette dernière puisse être modifiée.

Explication:
J'ai un slicer en lien avec plusieurs TCD qui comprend une cinquantaine de codes agences, et je souhaiterai sélectionner un seul code agence par défaut (Ex: CET) à l'ouverture du fichier Excel sans que l'utilisateur final ne puisse modifier la valeur CET.

Le but est d'afficher le résultats des TCD selon la sélection par défaut.

Détail du slicer:

Code:

---

1 2	Feuille du Slicer = Sheets("Réglages") This Workbook.SlicerCaches("Segment_Agent_Manager___ID").SlicerItems("CET")

---

Par avance merci pour votre aide ;)
N’hésitez pas à revenir vers moi si besoin de plus d'éléments

Merciii à toutes et à tous

Bonjour,
Voici une fonction générique qui fait cela, il suffit de mettre le slicer en question dans une feuille cachée pour que l'utilisateur ne puisse pas modifier la sélection

Attention que rien n'empêchera un utilisateur avisé d'ajouter le champs dans la zone des filtres ou tout simplement ajouter le même segment et de modifier alors la sélection ou encore en modifiant les filtres s'ils sont visibles.
Conclusion, j'ai des doutes quant au fait que cette solution vous satisfasse

Il y aurait certainement une meilleure solution en utilisant PowerQuery qui construirait la source en filtrant le vendeur dans mon exemple et l'agence dans le vôtre

Code:

---

1 2 3 4 5 6 7 8 9 10

Function FilterSlicer(SlicerName As String, SlicerItem As String) Dim slc As SlicerItem With ActiveWorkbook.SlicerCaches(SlicerName) .ClearManualFilter For Each slc In .SlicerItems slc.Selected = (slc.Name = SlicerItem) Next End With Set slc = Nothing End Function

---

La procédure qui l'invoque. Le slicer se nomme Segment_Vendeur et le filtre est fait sur Vendeur 1
Il est important de savoir que lorsque l'on renomme un slicer, ce n'est pas la propriété Name mais Caption qui est modifiée. Dans mon exemple, j'utilise la propriété Name. c'est à dire le nom donné par excel

Code:

---

1 2 3

Sub test_FilterSlicer() FilterSlicer "Segment_Vendeur", "Vendeur 1" End Sub

---

Bonjour Philippe,

Je regarde rapidement afin d'adapter le code et je vous reviens rapidement.
Merci

Excellent week end

Salut

Citation:

---

Envoyé par Mannemax

[...]sans que l'utilisateur final ne puisse modifier la valeur CET.[...]

---

De ce que je comprends, tu souhaites faire en sorte que le "CET" ne puisse pas voir les autres données. C'est peine perdue avec un TCD puisqu'il embarque tout le jeu de données dans le cache. Si tu veux segmenter des données sur cette dimension, tu dois soit:

• créer autant de classeurs que d'éléments dans la dimension et donner chaque classeur à qui de droit;
• Créer le classeur sur une extraction filtrée "en amont".

Bonjour à Tous,

Merci pour vos retours, entre les conseils de Philippe et de Pierre, j'ai réussi à obtenir le résultats souhaité.
vous êtes géniaux ;)

Merci et excellente journée à tous