Re : Tri personnalisé dans Tableau croisé dynamique
Bonjour elyssambre
Je te propose une macro que tu peux faire évoluer pour d'autres tries de cette sorte
Sub deb()
rep = InputBox("Temps apres chargement", , "00:20:00")
If rep = "" Then Exit Sub
Set t = ActiveSheet.PivotTables(1)
Set datas = t.PivotFields("Temps apres chargement").PivotItems
For Each d In datas
If d <> "(vide)" Then
If CDate(d) < CDate(rep) Then
d.Visible = False
Else
d.Visible = True
End If
End If
Next
End Sub