[XL-2007] Si Janvier en tant que PivotItem Existe alors (gestion de filtre)

[puledad1]

Bonjour,

Dans une feuille excel j'ai un tableau croisé dynamique.
On peut filtrer les données par mois.
Je filtre via un userform (morceu de code ci dessous)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub okbutton_Click()
 
 Sheets("Average time for an activity").Activate
 
    If Periodcb.Value = "January" Then 'Periodcb est ma combobox qui recense les mois de l'année
 
ActiveSheet.PivotTables("PivotTable1").PivotFields("Date (Month)").CurrentPage _
        = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Date (Month)")
        .PivotItems("Februar").Visible = False
        .PivotItems("März").Visible = False
        .PivotItems("April").Visible = False
        .PivotItems("Mai").Visible = False
        .PivotItems("Juni").Visible = False
        .PivotItems("July").Visible = False
        .PivotItems("August").Visible = False
        .PivotItems("September").Visible = False
        .PivotItems("November").Visible = False
        .PivotItems("Oktober").Visible = False
        .PivotItems("Dezember").Visible = False
    End With
End If

Mon prôbleme : si on a pas encore enté de données au titre du mois de Janvier, et que l'utlisateur demande d'afficher les données du mois de Janvier, ca va buguer.

J'aimerais donc intercaller la condition.

SI JANVIER EXISTE PARMIS LES PIVOTITEMS. Mais ej ne sais pas dire ca en VBA

Merci d'avance.
Bon weekend

[puledad1]

J'ai éssayé comme ca:

Code :

ActiveSheet.PivotTables("PivotTable1").PivotFields("Date (Month)").PivotItems("January") Is Nothing Then

Mais cela ne marche pas

Peut on me dire si je suis sur la bonne piste