VBA TCD Masquer des items

[danielco]

Bonjour,

Je souhaite masquer certaines dates pour lesquelles il n'y a pas de mouvements bancaires :

J'ai écrit :

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.

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

Je vous remercie par avance.

Daniel

 

[danielco]

Voici le classeur.

Daniel

 

[merinos-BernardEtang]

C'est infiniment plus facile de faire ce genre de chose avec power query et power pivot...

 

[chris]

Bonjour à tous

Solution PowerQuery seule (sans PowerPivot)

(j'ai renommé le tableau source, n'aimant pas noms automatiques...)

 

[danielco]

C'est infiniment plus facile de faire ce genre de chose avec power query et power pivot...

Bonjour,

Moi qui commence à me familiariser avec PP, je suis servi. Je vais devoir décortiquer et sans doute te demander des explications.

Merci.

Daniel

 

[danielco]

Bonjour à tous

Solution PowerQuery seule (sans PowerPivot)

(j'ai renommé le tableau source, n'aimant pas noms automatiques...)

Chris,

Même réponse que pour @merinos il va me falloir un peu de temps pour comprendre. Je reviens vers toi en cas de besoin.

Daniel

 

[chris]

RE

La solution PQ seul est hyper simple donc tu devrais vite piger...

 

[danielco]

RE

La solution PQ seul est hyper simple donc tu devrais vite piger...

Oui, je viens de regarder. Pour la compréhension, pas de problème. Pour le faire par moi-même, il faut que j'apprenne DAX.

Daniel

 

[chris]

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.

 

[danielco]

Euh, oui, elle est où, la roulette ?

 

[chris]

RE

 

[danielco]

Merci. Je regarde.

Daniel

 

[chris]

ET aussi dans la barre de formule....

 

[danielco]

Bonjour,

Désolé, ça me passe par dessus la tête. Je vais apprendre avec un bouquin. Tu aurais un conseil pour un bouquin ?

Daniel

 

[chris]

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.