Discussion :

[dbouchy]

Bonjour,

N'ayant pas trouvé la solution à mon problème, je réalise donc mon premier POST sur ce forum. Merci d'avance pour votre temps

Dans le fichier joint, j'ai 3 feuilles :

- Saisie qui contient mes données,
- une page de Configuration,
- le graphique issu d'un TCD

Mon problème est le suivant :

Lorsque j'exécute la Macro de la feuille "Graphique Salarié", la macro me renvoie le message suivant : "erreur exécution 1004 impossible de définir la propriété visible de la classe pivotitem".

J'ai remarqué que le problème survient au moment où elle commence à sélectionner les items correspondant à la plage de date sélectionnée (en rouge dans la macro 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Dim datetest As Double, Datedeb As Double, Datefin As Double
Application.ScreenUpdating = True
nomsal = CombSalarié.Text

    Sheets("Graphique Salarié").Visible = True
    Sheets("Menu").Visible = False

    Sheets("Graphique Salarié").Select
    ActiveWorkbook.RefreshAll
    
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Tâches").ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Tâches").PivotFilters.Add Type:=xlCaptionDoesNotEqual, Value1:="(vide)"
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Salarié"). _
        CurrentPage = nomsal

DD = Format(Me.DTPicker1, "dd/mm/yyyy")
DF = Format(Me.DTPicker2, "dd/mm/yyyy")

    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date"). _
        ClearAllFilters
        Datedeb = CDate(DD)
        Datefin = CDate(DF)
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date"). _
        CurrentPage = "(All)"
               
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
        "Date")[/COLOR]

        .PivotItems(1).Visible = True
        For i = 2 To .PivotItems.Count
        .PivotItems(i).Visible = False
        Next

        For i = 2 To .PivotItems.Count
        MsgBox .PivotItems.Count
        datetest = CDate(Format(.PivotItems(i).Value, "DD/MM/YYYY")): MsgBox datetest
        If datetest < Datedeb Or datetest > Datefin Then .PivotItems(i).Visible = False Else .PivotItems(i).Visible = True
        Next
        datetest = CDate(Format(.PivotItems(1).Value, "DD/MM/YYYY")): MsgBox datetest
    If datetest >= Datedeb Then .PivotItems(1).Visible = True Else .PivotItems(1).Visible = False
    End With
Application.ScreenUpdating = True

Suis-je suffisamment clair pour qu'une âme charitable puisse m'aider ?

Merci beaucoup.

[parmi]

Bonjour,

Un problème que je vois c'est qu'il y a des dates vides donc pas valides.
Il faudrait que tu vérifies si IsDate(ton filtre)

Code :

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

1
2
3
4
        If IsDate(.PivotItems(i).Value) Then
           datetest = CDate(Format(.PivotItems(i).Value, "DD/MM/YYYY"))  ': MsgBox datetest
           If datetest < Datedeb Or datetest > Datefin Then .PivotItems(i).Visible = False Else .PivotItems(i).Visible = True
        End If

[dbouchy]

Merci parmi

Oui, tu as raison, il y a des dates de vides et Je ne comprends absolument pas pourquoi !
Il semblerai que les items des filtres ne correspondent pas aux données de la source.


J'ai intégré ton code mais j'ai toujours la même erreur. En fait chez moi, l'erreur arrive bien en amont de cette ligne de code. Elle arrive dès que le programme exécute :

Code :

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

.PivotItems(1).Visible = True

Je nage dans la semoule.

[dbouchy]

Bon, j'ai finalement trouvé une solution à travers le code suivant :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Sheets("Graphique Salarié").Select
ActiveWorkbook.RefreshAll
 
'ActiveSheet.PivotTables("Tableau croisé dynamique3").ManualUpdate = True
'ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date").ShowAllItems = True
 
DD = Format(Me.DTPicker1, "dd/mm/yyyy")
DF = Format(Me.DTPicker2, "dd/mm/yyyy")
 
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date"). _
        ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date"). _
        ShowAllItems = False
 
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date"). _
        CurrentPage = "(All)"
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date")
        ActiveSheet.PivotTables("Tableau croisé dynamique3").NullString = "(Blank)"
        ActiveSheet.PivotTables("Tableau croisé dynamique3").DisplayNullString = False
 
        For Each Pi In .PivotItems
            Pi.Name = Pi.SourceNameStandard
            MsgBox Pi.Name
            If Format(Pi.Name, "dd/mm/yyyy") >= DD And Format(Pi.Name, "dd/mm/yyyy") <= DF Then .PivotItems(Pi.Name).Visible = True Else .PivotItems(Pi.Name).Visible = False
        Next Pi
 
    End With
 
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Salarié"). _
        CurrentPage = nomsal
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Tâches").ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Tâches").PivotFilters.Add Type:=xlCaptionDoesNotEqual, Value1:="(vide)"
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
 
Range("C10").Activate
 
MenuGraphique.Hide
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
 
End Sub
 
Private Sub CommandButton4_Click()
 
 
'If CheckBox1 = True Then nomsal = "(Tous)"
 
Date1 = DTPicker1.Value - 1
Date2 = DTPicker2.Value
 
nomsal = CombSalarié.Text
 
 
'    Sheets("Activité Salarié").Visible = True
'    Sheets("Menu").Visible = False
 
    Sheets("Activité Salarié").Select
    ActiveWorkbook.RefreshAll
 
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
 
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date").ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date").PivotFilters.Add Type:=xlCaptionDoesNotEqual, Value1:="(vide)"
 
     ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Salarié"). _
        CurrentPage = nomsal
    Range("C10").Select
 
 
Dim Pvt As PivotTable
Dim Fld As PivotField
Dim DD As String, DF As String
i = i + 1
DD = Format(Me.DTPicker1 - 1, "dd/mm/yyyy")
DF = Format(Me.DTPicker2, "dd/mm/yyyy")
Set Pvt = Sheets("Activité Salarié").PivotTables("Tableau croisé dynamique1")
Set Fld = Pvt.PivotFields("Date")
Fld.ClearAllFilters
Fld.PivotFilters.Add Type:=xlDateBetween, Value1:=DD, Value2:=DF
Set Fld = Nothing
Set Pvt = Nothing
 
MenuGraphique.Hide
End Sub

L'erreur 1004 à disparue mais un autre pb apparaît... et j'ouvre un nouveau post car le sujet n'est plus le même.