VBA Masquer des items d'un TCD

Version imprimable

1 pièce(s) jointe(s)

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.

17/11/2019, 20h34
78chris

Bonjour

Sur 2016, je pense plus simple, dans la mesure où un solde à 0 ne suffit pas à obtenir un filtre direct, de préfiltrer la source via PowerQuery et bâtir le TCD sur le requête.
17/11/2019, 21h41
Daniel.C

Bonjour et merci.

Je ne suis malheureusement pas libre de modifier le classeur.
17/11/2019, 23h28
78chris

RE

Cela ne modifie pas le classeur (c'est une requête), juste la source du TCD...

Sinon on doit pouvoir utiliser le modèle de données PowerPivot et utiliser une mesure mais c'est nettement plus lourd qu'une requête PQ

La boucle reste une solution longue quand le TCD est volumineux
18/11/2019, 10h08
Daniel.C

Ne serait-ce que pour ma connaissance, ça m'intéresserait. Est-ce que tu as besoin du classeur ? La source de données est sur une feuille du classeur. et j'avais cru comprendre qu'avec PQ, il fallait qu'elle soit externe ?
18/11/2019, 14h45
78chris

Re

Non PowerQuery traite tout aussi bien ce qui est en interne ou externe

En postant un bout de fichier, cela permettra de te donner une requête efficace et adaptée

Edit : Comme tu l'as fait ailleurs j'ai répondu sur cet autre fil à partir de ton fichier
18/11/2019, 15h41
Daniel.C

Bon, je viens effectivement de voir ton post; alors, pas la peine de multiplier les pièces jointes, je continue sur excel downloads

Merci..