Bonjour tout le monde,

Cela fait un bout de temps que je cherche desesperemment à décocher la case "(vide)" (ou "(blank)" si vous avez excel en anglais) du filtre de mon Tableau croisé dynamique situé à la cellule B4.

Je vous donne mon fichier en pièce jointe sur lequel je fais mes tests.

j'ai essayé beacoup de code différents pour y parvenir mais en vain....

voici un petit code que j'avais tenté

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
Sub tessst()
 
 ActiveSheet.PivotTables("PivotTable3").PivotFields("code")
 
ActiveSheet.PivotTables("PivotTable3").PivotFields("code").PivotItems("(vide)") = False
 
 
With ActiveSheet.PivotTables("PivotTable3").PivotFields("code")
 
 
If .PivotItems("vide").Visible = True Then .PivotItems("vide").Visible = False
 
 
'    Application.Undo
 
End If
 
End With
Je desespère... si quelqu'un aurait une idée ce serait trop génial

Merci beaucoupexemple forum1.xlsm