Discussion :

[Daniel.C]

Bonjour,

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



J'ai écrit ce code, mais il est très long, et en outre, il ne donne pas le résultat voulu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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.

[Daniel.C]

Bonjour et merci.

Je ne suis malheureusement pas libre de modifier le classeur.

[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

[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 ?

[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

[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..