[Résolu] Limiter histogramme Graphique Croisé Dynamique

  • Initiateur de la discussion Initiateur de la discussion craig974
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

craig974

XLDnaute Occasionnel
Bonjour,

J'ai des tableaux croisés dynamique qui on pour etiquette de ligne des numéro de semaine (S1, S2, ...) chaque semaine ce tableau s'incrémente donc de une semaine. Je voudrais que sur mon graphique croisé dynamique issu de ce TCD ne soit affiché que les 7 dernières semaines.
Y a t il un moyen de régler ça par du VBA ?

Merci d'avance
 
Re : Limiter histogramme Graphique Croisé Dynamique

J'ai déjà quelques colonnes ajoutées pour aider à construire mon TCD et GCD, donc si je pouvais essayer de ne pas le faire ce serait bien. Je pensais à faire un filtre en VBA "est compris entre" SX-6 et SX (avec X le numéro de la semaine):

ActiveSheet.PivotTables(1).PivotFields("Semaine"). _
PivotFilters.Add Type:=xlCaptionIsBetween, Value1:="S" & Cells(1,9) - 6 , Value2:="S" & Cells(1,9)

Cells(1,9) contient la valeur de la semaine actuelle (ex 26).

Je vais essayer de ce pas voir si cela marche
 
Re : Limiter histogramme Graphique Croisé Dynamique

Bon au final j'ai trouvé une solution, mais qui reprend la méthode du filtre "compris entre"

Code:
Dim DerniereValeurAffichée As String, PremiereValeurAffichée As String

With Sheets("Charge Réelle Disponible").PivotTables("ChargeRéelleGlobale").PivotFields("Semaine")
    .ClearLabelFilters
   PremiereValeurAffichée = .PivotItems(.PivotItems.Count - 6)
   DerniereValeurAffichée = .PivotItems(.PivotItems.Count)
    .PivotFilters.Add Type:=xlCaptionIsBetween, Value1:=PremiereValeurAffichée , Value2:=DerniereValeurAffichée
End With

Merci de votre aide.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
647
Réponses
1
Affichages
937
Retour