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
| Sub miseajour()
Dim periode1, periode2, periode3, periode4 As Date
Dim PvI As Object
Sheets("23 - Période").Activate
periode1 = Cells(6, 4).Value
periode2 = Cells(7, 4).Value
periode3 = Cells(8, 4).Value
periode4 = Cells(9, 4).Value
Sheets("19 - RAFF Qté Zone").Select
Sheets("19 - RAFF Qté Zone").Activate
'Set Field = Sheet.PivotTables("14 - Graph Détail RAFF Qté Zone").PivotFields("[Date Observation].[Calendrier].[Annee]").VisibleItemsList = Array("")
'Sheet.PivotTables("14 - Graph Détail RAFF Qté Zone").PivotFields("[Date Observation].[Calendrier].[Mois]").VisibleItemsList = Array("", "[Date Observation].[Calendrier].[Mois].&[" & rng2 & "]", "[Date Observation].[Calendrier].[Mois].&[" & Rng & "]", "[Date Observation].[Calendrier].[Mois].&[" & rng3 & "]")
Application.ScreenUpdating = False
ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotSelect "Mois[All]", _
xlLabelOnly + xlFirstRow, True
With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Mois")
For Each PvI In .PivotItems
Select Case PvI.Name
Case Is <> periode1 'Pour tout qui est différent de la période 1,
'Il ne m'affichera pas la date
PvI.Visible = False 'Il me donne une erreur??? or je ne comprends pas???
Case Is <> periode2
PvI.Visible = False
Case Is <> periode3
PvI.Visible = False
Case Is <> periode4
PvI.Visible = False
End Select
Next
End With
Sheets("21 - Détails Factures").Select
MsgBox ("Ok")
End Sub |
Partager