Modification TCD en VBA

Version imprimable

Bonjour à tous,

Je bloque sur un point, et avant d'envoyer le pc par la fenêtre :mouarf: je vais tenter ma chance ici

J'aimerais modifier le filtre d'une étiquette de colonne dans un TCD

J'utilise ce code ci mais impossible d'utiliser la propriété visible alors que la propiété name marche.
Au final je repére bien les valeurs que je souhaite afficher ou non mais vba bloque sur la commande.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim Pvt As PivotItem
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("DATE")
    For i = 1 To .PivotItems.Count
        If .PivotItems(i).Name <> Sheets("Onglet1").Cells(6, 9) And .PivotItems(i).Name <> DateAdd("m", -3, Sheets("Onglet1").Cells(6, 9)) Then
            MsgBox "masque" & vbCrLf & .PivotItems(i).Name
            .PivotItems(i).Visible = False
If .PivotItems(i).Visible Then MsgBox "visible" Else MsgBox "pas visible"
        End If
     Next i
 
    For i = 1 To .PivotItems.Count
        If .PivotItems(i).Name = Sheets("Onglet1").Cells(6, 9) Or .PivotItems(i).Name = DateAdd("m", -3, Sheets("Onglet1").Cells(6, 9)) Then
            MsgBox "affiche" & vbCrLf & .PivotItems(i).Name
            .PivotItems(i).Visible = True
        End If
    Next
End With

il y a peut-être qqchose qui m'échappe

08/11/2011, 11h17
Daniel.C

Bonjour,

Quelle est la ligne en erreur ? Précise quelle est ta version d'Excel, c'est particulièrement important pour les TCD.
08/11/2011, 13h17
Tinoudu72

la ligne en erreur :

Code:

.PivotItems(i).Visible = False

je suis sous excel 2007 mais le fichier avait été crée au format 97-2003.
08/11/2011, 13h59
Daniel.C

Il y a deux choses.
1. il faut qu'au moins un élément(PivotItem) soit visible
2. Puisque le CD a été créé avec XL2003, tu dois travailler avec XL2007 en mode compatibilité (c'est à dire que le format d'enregistrement doit être 97 - 2003 par défaut avant que tu ouvres le classeur.
08/11/2011, 16h53
Tinoudu72

Il y aura toujours deux éléments visibles.
Petite omission de ma part, j'ai enregistré le fichier de base en .xlsm

Cela marche en convertissant la date en format texte :?
il doit pourtant bien avoir un moyen de le faire avec la date en format date
08/11/2011, 17h08
Daniel.C

La propriété PivotItem.Name est de type string. Tu peux essayer :

Code:

CDate(.PivotItems(i).Name)

pour tes comparaisons.
09/11/2011, 18h29
Tinoudu72
Les comparaisons fonctionnement, l'erreur se situe au niveau de la ligne suivante:
Code:

1 2 .PivotItems(i).Visible = False '(ou True)
si je n'ai aucune condition et que je souhaite tous les afficher, cela ne marche pas non plus.
Code:

1 2 3 4 For i = 1 To .PivotItems.Count .PivotItems(i).Visible = True Next i
10/11/2011, 16h01
Daniel.C

Est-ce que tu pourrais mettre un petit classeur de test en pièce jointe. Ce serait moins long et plus sûr que de tenter de reconstituer les données.
10/11/2011, 16h36
Tinoudu72

1 pièce(s) jointe(s)

Dslé je ne peut pas , à moins de construire moi même un classeur de test ce qui revient finnallement au même.

le voici, il faut l'enregistrer au format ".xlsm" pour que cela soit semblablePièce jointe 84786
10/11/2011, 17h42
Daniel.C

Il s'agit d'une incompatibilité entre XL2003 et XL2010. J'ai refait, dans un nouveau classeur, le TCD en ayant copié les données et cela fonctionne.
14/11/2011, 09h42
Tinoudu72

Salut
Tu veut sans doute dire 2007?
14/11/2011, 10h04
Daniel.C

Oui. Effectivement XL2007. J'ai mis XL2010 parce que j'ai fait les tests avec XL2010, mais tu as raison.