Classe TimelineState - État spécifique à la chronologie (Excel VBA)
État spécifique à la chronologie d'un objet SlicerCache . Pour utiliser une variable de classe TimelineState, elle doit d'abord être instanciée, par exemple
Dim tse as TimelineState
Set tse = ActiveWorkbook.SlicerCaches(1).TimelineState
EndDate
Renvoie la fin de la plage de dates de filtrage (égale à la propriété StartDate si la plage est un seul jour). Type de données Variant en lecture seule.
Cette propriété renvoie une erreur pour l’une des conditions suivantes:
Dim dtEndDate As Date
dtEndDate = ActiveWorkbook.SlicerCaches(1).TimelineState.EndDate
FilterType
Renvoie le type de filtre de date. En lecture seule XlPivotFilterType. Ici on trouve valeurs possible pour
Dim xpfFilterType As XlPivotFilterType
xpfFilterType = ActiveWorkbook.SlicerCaches(1).TimelineState.FilterType
FilterValue1
Renvoie la première valeur associée au filtre date (la sémantique varie en fonction du type de filtre). Type de données Variant en lecture seule.
Dim varFilterValue1 As Variant
varFilterValue1 = ActiveWorkbook.SlicerCaches(1).TimelineState.FilterValue1
FilterValue2
Renvoie la deuxième valeur associée au filtre date (la sémantique varie en fonction du type de filtre). Type de données Variant en lecture seule.
Dim varFilterValue2 As Variant
varFilterValue2 = ActiveWorkbook.SlicerCaches(1).TimelineState.FilterValue2
SetFilterDateRange
Définit le filtre de la chronologie. Les valeurs de retour possibles sont xlFilterStatusDateHasTime - SetFilterDateRange (?): StartDate ou EndDate ont une partie Time, xlFilterStatusDateWrongOrder - SetFilterDateRange (?): StartDate > EndDate, xlFilterStatusInvalidDate - SetFilterDateRange (?): StartDate ou EndDate ne sont pas des dates valides, xlFilterStatusOK - Indique OK ou réussi.
SetFilterDateRange (StartDate, EndDate)
Dim dtStartDate As Date: dtStartDate =
Dim dtEndDate As Date: dtEndDate =
Dim xfssSetFilterDateRange As XlFilterStatus
xfssSetFilterDateRange = ActiveWorkbook.SlicerCaches(1).TimelineState.SetFilterDateRange(StartDate:=dtStartDate, EndDate:=dtEndDate)
Arguments
Les arguments nommés :
StartDate (Date) - Début de la plage de dates de filtrage.
EndDate (Date) - Fin de la plage de dates de filtrage.
SingleRangeFilterState
True lorsque l’état de filtrage est une plage de dates contiguës; Sinon, false. Boolean (en lecture seule).
Dim booSingleRangeFilterState As Boolean
booSingleRangeFilterState = ActiveWorkbook.SlicerCaches(1).TimelineState.SingleRangeFilterState
StartDate
Renvoie le début de la plage de dates de filtrage. Type de données Variant en lecture seule.
Cette propriété renvoie une erreur pour l’une des conditions suivantes:
Dim dtStartDate As Date
dtStartDate = ActiveWorkbook.SlicerCaches(1).TimelineState.StartDate