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é
Je desespère... si quelqu'un aurait une idée ce serait trop génial
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
Merci beaucoupexemple forum1.xlsm
Partager