Discussion :

[nasolme]

Bonjour,

J'utilise ce code afin d'obtenir la valeur max de ma chronologie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Worksheets("Feuil1").activate
    Range("A1").Select
    Selection.Value = ActiveWorkbook.SlicerCaches(1).TimelineState.FilterValue2
End Sub

Mais je me retrouve confronté à un message d'erreur 1004

erreur définie par l'application ou l'objet

Pour information j'ai deux feuilles. La "Feuil 1" contient 7 TCD et la "feuil2" contient 7 segments et la chronologie (dont je veux récupérer la valeur max).
Tous les segments sont connectés avec chacun des TCDs.

Avez-vous une idée d'où peux provenir l'erreur ?

Merci de votre retour !

[Zekraoui_Jakani]

Réponse inspirée du Net MS-Office:
"En fait, la chronologie est une manière visuelle d'établir un filtre sur le TCD. Les valeurs des champs de calcul ne font pas partie de la chronologie elle-même. Les bornes du filtre seront :

date de début :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SlicerCaches(1).TimelineState.FilterValue1

date de fin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SlicerCaches(1).TimelineState.FilterValue2

ce qui correspond au(x) pivotitem(s) visible(s) de ton TCD
Tu peux aussi bien récupérer les valeurs cherchées directement sans te soucier de la chronologie en recherchent les items >= 01/03/2019 et <= 31/03/2019 et faire de même pour février, par exemple"