Discussion :

[alexysr]

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 :

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

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

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

[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

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

[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

[Invité]

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 :

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