1 pièce(s) jointe(s)
VBA Masquer des items d'un TCD
Bonjour,
Je souhaite masquer certaines dates pour lesquelles il n'y a pas de mouvements bancaires :
Pièce jointe 518014
J'ai écrit ce code, mais il est très long, et en outre, il ne donne pas le résultat voulu :
Code:
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
| Sub test()
Dim Pt As PivotItem, C As Range
Application.ScreenUpdating = False
inCalculationMode = Application.Calculation
Application.Calculation = xlCalculationManual
With Sheets("Cpts bancaires").PivotTables(1)
.ManualUpdate = True
On Error Resume Next
.PivotFields("Date").ClearAllFilters
On Error GoTo 0
For Each Pt In .PivotFields("Date").PivotItems
For Each C In Pt.DataRange
If C.Column = 7 Then
If C.Row = 20 Then Stop
If C = "" And C.Offset(, 1) = "" Then
Pt.Visible = False
ctr = ctr + 1
Debug.Print ctr
End If
End If
Next C
Next Pt
.ManualUpdate = False
End With
Application.Calculation = inCalculationMode
End Sub |
Je posterai le classeur quand vous voudrez.
Merci d'avance.