Bonjour,
Une proposition VBA pour supprimer les dates de début et de fin.
Pour les reste, soit plus précis et donne un exemple de résultat escompté !?
Si on ne pas faire les calculs dans le TCD, il faudra les faire dans le tableau des données.
Cdlt.
Option Explicit
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pt As PivotTable, pf As PivotField, pi As PivotItem
With Application
.Application.EnableEvents = False
.ScreenUpdating = False
End With
On Error GoTo err_Handler
Set pt = Target
Set pf = pt.PivotFields("Date de début")
pf.ClearAllFilters
For Each pi In pf.PivotItems
Select Case Left(pi.Name, 1)
Case "<", ">": pi.Visible = False
End Select
Next pi
exit_Handler:
With Application
.Application.EnableEvents = True
.ScreenUpdating = True
End With
Set pf = Nothing: Set pt = Nothing
Exit Sub
err_Handler:
MsgBox "Erreur " & Err.Number & " :" & Chr(13) & Err.Description
Resume exit_Handler
End Sub