Bonjour,

Je suis actuellement en train de créer un TCD via un code VBA; Je souhaiterai que mon filtre "Différence salaires N VS N-1" décoche toutes les valeurs < 0.
Mon code fonctionne presque. Le problème est que seuls les nombre entiers sont décochés. Les nombres décimaux restent cochés... Savez vous pourquoi?

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
F_TCD.PivotTables("TCD 1").PivotFields(Différence_salaires_N_VS_N_Moins_1).EnableMultiplePageItems = True
 
With F_TCD.PivotTables("TCD 1").PivotFields(Différence_salaires_N_VS_N_Moins_1)
 
For B = 1 To .PivotItems.Count
If .PivotItems(B) >= 0 Then
.PivotItems(B).Visible = True
 
Else
.PivotItems(B).Visible = False
 
End If
 
Next B
 
End With