Modifier filtre TCD - Pb valeurs entières et décimales

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 seules les nombre entiers sont décochés. Les nombres décimaux restent cochés... Savez vous pourquoi?

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

Bonjour,

Peux-tu joindre un petit fichier ?

Cdlt.

Bonjour,

Voici un fichier, permettant de comprendre mon problème.

Je vous remercie;

Lou

Re,

Ton fichier en retour.

Les données ont été mises sous forme de tableau structuré (dynamique).

Cdlt.

Sub Gestion_TCD()
Dim PT As PivotTable, PF As PivotField, B As Long
    '***********FILTRE : DIFFERENCE SALAIRE >= 0 **********************************
    Set PT = Worksheets("TCD").PivotTables("TCD 1")
    PT.PivotCache.Refresh
    Set PF = PT.PivotFields("Différence salaires (2019/2018)")
    With PF
        .ClearAllFilters
        .EnableMultiplePageItems = True
        For B = 1 To .PivotItems.Count
            If Val(.PivotItems(B)) >= 0 Then
                .PivotItems(B).Visible = True
            Else
                .PivotItems(B).Visible = False
            End If
        Next B
    End With
End Sub

Ça fonctionne, je vous remercie!

Bonne journée !