Sub Macro8()
'
' Excel 2007, mise à jour TCD, date stockées sous forme de texte dans tableau feuil1
' car si dates sous forme de nombres, erreur sur la propriété visible
'
datedeb = CDate(Range("F1").Value)
datefin = CDate(Range("H1").Value)
If datefin < datedeb Then MsgBox "erreur sur dates de début et de fin - abandon": Exit Sub
Application.ScreenUpdating = False
'on error goto zéro_résultat
'
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("date"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"date")
For i = 1 To .PivotItems.Count
.PivotItems(i).Visible = True
If Not CDate(.PivotItems(i).Value) >= datedeb Or Not CDate(.PivotItems(i).Value) <= datefin Then
.PivotItems(i).Visible = False
End If
Next
End With
Exit Sub
Application.ScreenUpdating = True
'erreur si 0 enregistrement
zéro_résultat:
MsgBox ("Il n'y a pas de date correspondant à votre demande")
Application.ScreenUpdating = True
End Sub