VBA TCD, pivotitems

Version imprimable

VBA TCD, pivotitems

Bonjour à tous,

J’ai un souci pour la programmation d’un tableau croisé dynamique, j’ai plusieurs filtres à appliquer.

Deux filtres me pose problème, pour l’un je dois ignorer toutes les valeurs négatives, seulement elles changent quotidiennement.

Donc je voulais savoir s’il y avait un moyen pour faire un ordre logique du style inférieur ou égale à zéro = False ?

Voici la partie concerné, si vous pouvez m’aider s’il vous plaîtJ. Merci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Quantité"). _ CurrentPage = "(All)" With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _ "Quantité") .PivotItems("-788").Visible = False .PivotItems("0").Visible = False .PivotItems("(blank)").Visible = False End With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Quantité"). _ EnableMultiplePageItems = True
Et concernant le deuxième filtre ; je dois garder que les valeurs 0 et "vide" et ignorer toutes les autres. J’ai voulu prendre qu’elles et ajouter True mais les autres valeurs sont elles aussi true, donc ça ne m’arrange pas.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _ "Quantité Reçue").CurrentPage = "(All)" With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _ "Quantité Reçue") .PivotItems("0").Visible = True .PivotItems("(blank)").Visible = True End With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _ "Quantité Reçue").EnableMultiplePageItems = True
Merci encore à vous.

Ah oui j’oubliais : je suis une brêle ^^

Mais j’avance petit à petit, mais là je bloque^^

Merci

19/09/2014, 09h15
had4789

Bonjour,

d'abord quand tu écris un code merci d'utiliser le bouton # prévu à cette effet.

Ensuite ton filtre me paraît étrange car d'après ce que j'ai compris tu veux dans un même tableau tout et son contraire.

Tu ne peux pas faire un tableau avec les valeurs positives et un avec les valeurs négatives?
19/09/2014, 10h08
alexysr

Bonjour,

Merci de ta réponse, tout d'abord je m'excuse concernant le code.

C'est deux filtres concernant des données différentes, un est pour "Quantité" et l'autre pour " Quantité reçue"

merci
19/09/2014, 11h00
had4789

Voila ce que je te propose,

Dans le tableau dans lequel tu prends tes donnés, tu insères deux colonnes dans lesquelles tu ne recopies que les valeurs qui t'intéresse. Après tu mets ton TCD en forme en n'affichant pas les valeurs vides.
19/09/2014, 12h07
alexysr

Oui j'y avais pensé mais ce n'est pas possible pour différentes raisons.

Il n'y pas moyen d'insérer un ordre logique alors?

Bonne journée

Bonjour,
la fonction FiltrePivotTables filtre ce que tu passe en paramètre à toi de définir ce que tu veux garder par une boucle ou autre attention, les valeurs du champ sont séparées par un ";"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
FiltrePivotTables ActiveSheet.PivotTables("TDC"), "FOURNISSEUR", "E.Leclerc;Auchan"
End If
Public Function FiltrePivotTables(tb, Champ As String, V As String) As Boolean
On Error Resume Next
Dim I As Integer
Dim I2 As Long
Dim trouve As Boolean
Dim T
T = Split(V & ";", ";")
FiltrePivotTables = True
tb.PivotFields(Champ).ClearAllFilters
For I = 1 To tb.PivotFields(Champ).PivotItems.Count
    trouve = False
    For I2 = 0 To UBound(T)
    If Trim("" & tb.PivotFields(Champ).PivotItems(I).Name) = Trim("" & T(I2)) Then trouve = True
    Next
    If trouve = False Then tb.PivotFields(Champ).PivotItems(I).Visible = False
    If Err Then FiltrePivotTables = False
 
Next
 On Error GoTo 0
End Function

19/09/2014, 20h24
alexysr

Merci beaucoup pour ta réponse!

Je suis en weekend, je testerai ça à mon retour, mais cela semble résoudre mon problème et je t'en remercie!

Cordialement
et bon weekend!