TCD filtre par vba

Version imprimable

TCD filtre par vba

Bonjour,

Je me permets ce post parce qu'ayant cherché sur d'autres posts, je n'arrive pas à résoudre mon problème.

J'ai un TDC que je refresh et je voudrais qu'il me filtre uniquement une donnée dans le TDC en fonction d'une valo d'une cellule.
J'ai donc fait ce code:
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 Sub essai() Dim ligne As Double Set dep_oph = Sheets("Dépenses Ophtalmo").Range("J1", Sheets("Dépenses Ophtalmo").Range("J1").End(xlDown)) ligne = 2 Do Until ligne > dep_oph.Count - 1 If Sheets("Dépenses Ophtalmo").Cells(ligne, 10) <> 3524 Then Sheets("Dépenses Ophtalmo").PivotTables("Tableau croisé dynamique2").PivotFields("UF").PivotItems(Sheets("Dépenses Ophtalmo").Cells(ligne, 10)).Visible = False Set dep_oph = Sheets("Dépenses Ophtalmo").Range("J1", Sheets("Dépenses Ophtalmo").Range("J1").End(xlDown)) End If ligne = ligne + 1 Loop MsgBox "Traitement terminé" End Sub
Il me met malheureusement une erreur 438.
En l'occurrence, Sheets("Dépenses Ophtalmo").Cells(ligne, 10) = 2530, qui est bien différent de 3524, donc je suis ok, d'ailleurs il rentre bien dans le if.

J'ai essayé en mettant directement ceci:

Code:

Sheets("Dépenses Ophtalmo").PivotTables("Tableau croisé dynamique2").PivotFields("UF").PivotItems("2530").Visible = False

Cela a fonctionné, cela vient donc des guillemets.

J'ai tenté également avec ce code:

Code:

Sheets("Dépenses Ophtalmo").PivotTables("Tableau croisé dynamique2").PivotFields("UF").Sheets("Dépenses Ophtalmo") = Sheets("Dépenses Ophtalmo").Cells(ligne, 10).Value

Mais cela n'a pas marché (avec et sans le value, avec et sans du visible.
Pour info, j'ai essayé d'adapter ce que j'avais trouvé dans ce post:
https://www.developpez.net/forums/d1...-tcd-sous-vba/

Merci d'avance pour votre aide, je sèche un peu.

Bonne journée

25/03/2019, 11h57
ARTURO83

Bonjour,,

Dans

Code:

Sheets("Dépenses Ophtalmo").PivotTables("Tableau croisé dynamique2").PivotFields("UF").Sheets("Dépenses Ophtalmo") = Sheets("Dépenses Ophtalmo").Cells(ligne, 10).Value

Où est passé le .PivotItems?

CDlt

Je l'ai enlevé ^^

Dans l'adresse du post que j'ai indique, voici le code qui était utilisé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("b7:b9")) Is Nothing Or Target.Cells.Count > 3 Then Exit Sub
    Dim Sh As Worksheet, Pt As PivotTable
    For Each Sh In Worksheets
        For Each Pt In Sh.PivotTables
            With Pt
                .PivotFields("REGION 04 2017").CurrentPage = Range("$B$7").Value
                .PivotFields("ZONE 04 2017").CurrentPage = Range("$B$8").Value
                .PivotFields("RU 04 2017").CurrentPage = Range("$B$9").Value
            End With
      Next Pt
    Next Sh
End Sub

Le pivot item avait été enlevé.
J'ai voulu tenté de remplacer le CurrentPage par mon Sheets("Dépenses Ophtalmo") et Range().Value par Sheets("Dépenses Ophtalmo").Cells(ligne, 10).Value

25/03/2019, 14h17
ARTURO83

Le pivot item avait été enlevé. et pourquoi?

Quelque chose dans ce genre, qu'est-ce que ça dit (je ne peux pas le tester)?

Code:

Sheets("Dépenses Ophtalmo").PivotTables("Tableau croisé dynamique2").PivotFields("UF").PivotItems(Cells(ligne, 10)).Visible = False
25/03/2019, 15h21
Amariel30

Malheureusement cela n'a pas marché.

Erreur 1004, impossible de lire la propriété PivotItem de la classe PivotField.
Même erreur que cela que j'avais à l'origine, puisque j'ai fait la même ligne de code mais avec le nom de la page en plus.

D'autres idées? :)

Bon j'ai réussi à faire ce que je voulais en travaillant sur le filtre des étiquettes plutôt que des valeurs, à savoir:
Code:

1 2 3 4 5 6 Sub essai() Sheets("Dépenses Ophtalmo").PivotTables("Tableau croisé dynamique2").ClearAllFilters Sheets("Dépenses Ophtalmo").PivotTables("Tableau croisé dynamique2").PivotFields("UF").PivotFilters.Add Type:=xlCaptionEquals, Value1:=Sheets("Dépenses Ophtalmo").Cells(1, 9) End Sub
Où Sheets("Dépenses Ophtalmo").Cells(1, 9) = valeur que je veux, dans ma cellule.

Merci d'avoir pris le temps de m'aider, et si vous avez une autre technique, je suis preneur ; je pense que le filtre par valeur resterait plus opportun à un filtre sur l'étiquette.

Bon aprem