Extraire valeur chronologie

Bonjour tout le monde.

Petite question :

Comment récupérer automatiquement (en 'H19' voir le fichier exemple joint) la valeur max de la chronologie d'un tableau croisé dynamique ???

merci d'avance

Manu

42chrono.xlsx (15.89 Ko)

bonjour manouelle

voici une proposition en espérant que cela te convienne

avais tu essayer tous simplement la fonction max

142copie-de-chrono.xlsx (15.92 Ko)

merci pour la réponse.

mais ce n'est pas ça, je souhaite bien extraire la valeur de la CHRONOLOGIE, pas celle du TCD généré...

pour cause, si mes données sources ne contiennent pas d'enregistrement correspondant à la valeur chrono max, ça ne colle pas...

(voir fichier joint et modifié en ce sens)

merci quand même

Bonsoir,

Un exemple à étudier.

Cdlt.

70chrono.xlsx (23.10 Ko)

merci, mais ça ne marche pas pour la même raison...

je viens de remplacer les dates 06/01/201 par 05/01/2017dans les données sources...

alors ça ne fonctionne plus...

je viens de trouver ça en fouinant un peu...

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 :

ActiveWorkbook.SlicerCaches(1).TimelineState.FilterValue1

date de fin :

ActiveWorkbook.SlicerCaches(1).TimelineState.FilterValue2

ce qui correspond au(x) pivotitem(s) visible(s) de ton TCD

bon je comprends pas bien, mais bien que ça date un peu, ça a l'air de fonctionner...

mais comment appliquer ça dans la cellule ET à chaque modification de la chronologie ???

Manu

Re,

Dans les options du TCD, Données, Conserver les éléments supprimés...

Opter pour Aucun au lieu de Automatique.

A te relire.

Cdlt.

non... ça n'ira pas...

j'aurais souhaité travailler sur la chronologie directement...

Re,

Tu expliqueras ce qui ne fonctionne pas, car chez mois, je ne note pas de dysfonctionnement.

Cdlt.

jean eric bonsoir

je pense avoir compris la demande de

manouelle souhaite avoir la date de la formule ci-dessous :

ActiveWorkbook.SlicerCaches("ChronologieNative_date").TimelineState. _

SetFilterDateRange "03/01/2017", "07/01/2017"

Capture.JPG

capture

en fait c'était pas très compliqué :

Private Sub worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Range("h19").Select
    Selection.Value = ActiveWorkbook.SlicerCaches(1).TimelineState.FilterValue2
End Sub

merci à tous pour votre aide

213chrono.xlsm (20.89 Ko)
Rechercher des sujets similaires à "extraire valeur chronologie"