XL 2013 Chronologie tableau dynamique

chris

XLDnaute Barbatruc

• 18 Avril 2022

• #2

Bonjour

Non. Le plus simple est un segment mois et un segment jour après regroupement des dates

 

Vote positif 0 Vote négatif

sendra

XLDnaute Nouveau

• 18 Avril 2022

• #3

Merci chris
oui je sais que les segments sont plus simple mais avec la calendrier c'est un plus moderne non?
donc c'est impossible de faire la connexion même avec le VBA?

 

Dernière édition: 18 Avril 2022

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 18 Avril 2022

• #4

Bonjour

Le problème des calendriers ont qu'ils sont souvent propres à une version Excel et la plupart des compléments ont un code VBA vérouillé.

Ta version est ancienne mais microsoft ne fournit plus de contrôle calendrier sur 365.

Ils insèrent une date dans une cellule : on peut théoriquement utiliser le Worksheet change pour récupérer le changement de date et, via une boucle, filtrer un champ date du TCD ou un segment date associé.

A noter qu'une boucle est moins efficace qu'un segment.

J'ai testé 2 compléments calendrier : l'un permet de le faire (samradapps_datepicker), l’autre de Vertex42.com, fourni sur le store Microsoft, complique les choses car son code interfère...

 

Vote positif 0 Vote négatif

sendra

XLDnaute Nouveau

• 18 Avril 2022

• #5

chris à dit:

Bonjour

Le problème des calendriers ont qu'ils sont souvent propres à une version Excel et la plupart des compléments ont un code VBA vérouillé.

Ta version est ancienne mais microsoft ne fournit plus de contrôle calendrier sur 365.

Ils insèrent une date dans une cellule : on peut théoriquement utiliser le Worksheet change pour récupérer le changement de date et, via une boucle, filtrer un champ date du TCD ou un segment date associé.

A noter qu'une boucle est moins efficace qu'un segment.

J'ai testé 2 compléments calendrier : l'un permet de le faire (samradapps_datepicker), l’autre de Vertex42.com, fourni sur le store Microsoft, complique les choses car son code interfère...

Cliquez pour agrandir...

Merci encore fois chris
donc c'est possible avec les macro?

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 18 Avril 2022

• #6

RE

Oui. Tu utilises quel calendrier ?

 

Dernière édition: 18 Avril 2022

Vote positif 0 Vote négatif

sendra

XLDnaute Nouveau

• 18 Avril 2022

• #7

sendra à dit:

Merci encore fois chris
donc c'est possible avec les macro?

Cliquez pour agrandir...

samradapps_datepicker

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 18 Avril 2022

• #8

RE

La cellule qui reçoit la date est nommée Choix

Ici synchro avec un segment basé sur le champ Date de commande (placé hors vue).

Module placé dans l'onglet portant la cellule Choix et le TCD

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Trouve As Boolean
 
    If Intersect(Target, [Choix]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveWorkbook.SlicerCaches("Segment_Date_commande").ClearManualFilter
    If [Choix] = "" Then Exit Sub
    For Each SI In ActiveWorkbook.SlicerCaches("Segment_Date_commande").SlicerItems
        If SI.Value = Format([Choix], "dd/mm/yyyy") Then
            On Error GoTo fin
            Application.EnableEvents = False
            SI.Selected = True
            Trouve = True
        Else
            SI.Selected = False
        End If
    Next
    If Trouve = False Then MsgBox "Date introuvable"
fin:
    Application.EnableEvents = True
End Sub

A noter qu'il est préférable de désactiver la mémorisation des données du TCD afin que le cache soit nettoyé lors de l'actualisation et le segment purgé des dates disparues de la source.

 

Dernière édition: 18 Avril 2022

Vote positif 0 Vote négatif

sendra

XLDnaute Nouveau

• 19 Avril 2022

• #9

Merci Chris,
j'ai pas compris le code et comment l'intégrer, si possible,j'ai mis une exemple d'un tcd

 

Pièces jointes

• EXEMPLE.xlsx

  16.6 KB · Affichages: 2

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 19 Avril 2022

• #10

Bonjour

Un TCD se bâtît sur un tableau structuré, pas sur une plage

J'ai bien parlé de segment pas de chronologie

 

Pièces jointes

• TCD_Calendrier_sendra.xlsm

  25.5 KB · Affichages: 11

Vote positif 0 Vote négatif

Solution

sendra

XLDnaute Nouveau

• 19 Avril 2022

• #11

Merci

 

Vote positif 0 Vote négatif

sendra

XLDnaute Nouveau

• 22 Avril 2022

• #12

chris à dit:

Bonjour

Un TCD se bâtît sur un tableau structuré, pas sur une plage

J'ai bien parlé de segment pas de chronologie

Cliquez pour agrandir...

Salut Chris,
je m'excuse pour le dérangement,
mais possible que la calendrier dans une feuille et le tcd dans une autre feuille !

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 22 Avril 2022

• #13

Bonjour

Oui, tu peux déplacer le TCD dans un autre onglet (couper/coller)

 

Vote positif 0 Vote négatif

sendra

XLDnaute Nouveau

• 23 Avril 2022

• #14

Salut Chris,
le code ne fonctionne pas si j'ai changé les données
mon feuille est contient une feuille qui contient TCd et l(autre tableau de borde qui contient la calendrier
la feuille base est dans un power pivot

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 23 Avril 2022

• #15

Bonjour

Si tu donnais les infos dès le début on n'aurait pas à recommencer x fois...

Les segments de TCD basés sur le modèle de données PowerPivot ne fonctionnent pas comme les segments de TCD classiques

Ceci devrait fonctionner si le segment a bien le nom Segment_Date

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [Choix]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    With ActiveWorkbook.SlicerCaches("Segment_Date")
        .ClearManualFilter
        If [Choix] <> "" Then
            On Error GoTo fin0
            .VisibleSlicerItemsList = Array("[Base].[Date].&[" & Format([Choix].Value, "yyyy-mm-dd") & "T00:00:00]")
        End If
    End With

    GoTo Fin2
fin0:
    MsgBox "Date introuvable"
Fin2:
    Application.EnableEvents = True
End Sub

 

Vote positif 0 Vote négatif