Bonjour,
Je souhaite masquer certaines dates pour lesquelles il n'y a pas de mouvements bancaires :
J'ai écrit :
Mais la macro est lente et souvent, je suis obligé de tuer Excel. Je vous mets une copie d'écran, et, dès que je pourrai, je posterai le classeur.
Le but est de masquer les éléments comme 2020-02-02 qui n'ont pas d'écriture.
Je vous remercie par avance.
Daniel
Je souhaite masquer certaines dates pour lesquelles il n'y a pas de mouvements bancaires :
J'ai écrit :
VB:
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 SubMais la macro est lente et souvent, je suis obligé de tuer Excel. Je vous mets une copie d'écran, et, dès que je pourrai, je posterai le classeur.
Le but est de masquer les éléments comme 2020-02-02 qui n'ont pas d'écriture.
Je vous remercie par avance.
Daniel