Discussion :

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

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

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

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