Discussion :

[Amariel30]

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 :

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
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 :

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

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 :

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

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

[ARTURO83]

Bonjour,,

Dans

Code :

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

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

[Amariel30]

Je l'ai enlevé ^^

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

Code :

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

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

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

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

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

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

[Amariel30]

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

Code :

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

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