Casse-tête (TCD, filtre auto.)

[rafou29]

Bonjour à tous,

Avant toute chose, je vous joint un fichier Excel qui synthétise au mieux mon "projet" que je ne peux vous joindre pour cause de confidentialité.

Je vais tâcher de vous expliquer le plus clairement possible ce que je souhaite obtenir.

J'ai 3 TCD dans 3 onglets différents qui utilisent les données issues de mon tableau de données en "Sheet1" et affichent un histogramme empilé pour chacun.

Ce que je n'ai pas réussi à reproduire sur le fichier ci-joint: "Lorsque je sélectionne une catégorie dans ma combobox30 alors il va sélectionner mon TCD en question et en fonction de ce que j'entre dans ma textbox40, il me filtre mon TCD en fonction de mon paramètre"

Exemple: Si je sélectionne "Gamme" puis "1" alors le graphe va m'afficher mon histogramme pour la Gamme "1".

Mon problème:

Je souhaiterais que mes 3 TCD obéissent à ma condition "Enregistrement Période", c'est à dire que lorsque je sélectionne 2 dates, mes 3 TCD utilisent les données de mon tableau comprise dans cet intervalle de date, sans faire de caprice si possible ...


Merci beaucoup de votre attention !

 

[rafou29]

Re : Casse-tête (TCD, filtre auto.)

Personne n'a des suggestions ?

 

[rafou29]

Re : Casse-tête (TCD, filtre auto.)

bonjour,

J'ai peut être trouvé un début de solution à mon problème avec l'enregistreur de macro.
Voici le code qu'il m'a donné:

With ActiveSheet.PivotTables("TCD1").PivotFields("Date")
        .PivotItems("3/9/2010").visible = False
        .PivotItems("3/15/2010").visible = False
        .PivotItems("3/25/2010").visible = False
    End With

Maintenant ce que je souhaiterais c'est qu'il émette une condition qui me permette d'automatiser de manière à ce qu'en fonction des 2 dates que je choisis dans mes DTPicker il ne m'affiche dans mon Tableau Croisé Dynamique que les dates comprises entre ces 2 dates.

Le filtre auto. que j'employais ressemblait à cela:

Sheets("Sheet1").Select

With Worksheets("Sheet1") 
    If .FilterMode = True Then .ShowAllData
End With

Dim a As Single
Dim b As Single

a = DTPicker10.Value
b = DTPicker11.Value

Selection.autofilter Field:=3, Criteria1:=">=" & a, Operator:=xlAnd, Criteria2:="<=" & b 'filtre la colonne "Date" en fonction des 2 dates choisies dans les DTPicker

Cela me permettrait ainsi de résoudre mes problèmes sur 2 de mes 3 TCD. En espérant que mon message vous inspire plus ...


Merci par avance de votre aide.

 

[rafou29]

Re : Casse-tête (TCD, filtre auto.)

J'ai trouvé un code qui pourrait répondre à mes attentes mais maintenant ma question est: Ou dois-je le mettre pour pouvoir faire en sorte que mes TCD ne prennent en compte que les cellules visibles de mon tableau ?

Mon code :

Selection.SpecialCells(xlCellTypeVisible).Select

 

[rafou29]

Re : Casse-tête (TCD, filtre auto.)

Personne n'a la moindre idée de comment résoudre mon problème ?