[XL-2007] Modification TCD en VBA

[Tinoudu72]

Bonjour à tous,

Je bloque sur un point, et avant d'envoyer le pc par la fenêtre 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

[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.

[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.

[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.

[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

[Daniel.C]

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

Code :

CDate(.PivotItems(i).Name)

pour tes comparaisons.

[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

[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.

[Tinoudu72]

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 semblableClasseur1.xls

[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.

[Tinoudu72]

Salut
Tu veut sans doute dire 2007?

[Daniel.C]

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