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