Discussion :

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

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Sélectionner tout - Visualiser dans une fenêtre à part

CDate(.PivotItems(i).Name)

pour tes comparaisons.