VBA TCD Masquer des items

danielco

XLDnaute Accro
Bonjour,

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 Sub

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.
Annotation 2019-11-16 174222.png

Le but est de masquer les éléments comme 2020-02-02 qui n'ont pas d'écriture.

Je vous remercie par avance.

Daniel
 

chris

XLDnaute Barbatruc
RE

Dans PowerQuery ce n'est pas DAX mais M et on n'a pas besoin de l'apprendre pour ce cas : tout a été fait avec les menus.

Tu peux voir les commandes utilisées à droite et éditer certaines avec la roue dentée. Si tu as des questions demande.
 

chris

XLDnaute Barbatruc
Bonjour

Pour l'instant je n'ai pas trouvé ce que je cherche (quelque chose d’approfondi sur le langage M) mais le livre d'ENI https://www.editions-eni.fr/livre/p...MIwKevnbeI5gIV15rVCh27ngACEAQYASABEgKBIvD_BwE, qui semble faire un tour assez large, m'a l'air par mal.

Sinon il y a le site du CFO masqué qui peut donner des pistes.

Sur ce que j'ai fait c'est très simple donc je peux décrire le processus.
Là ce soir je ressors mais demain si tu veux.
 
Dernière édition:

Discussions similaires

Haut Bas