Discussion :

[awa123]

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

[pgz]

Bonsoir.

L'élément vide se nomme en fait "(blank)".

Tu peux remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.PivotItems("vide")

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.PivotItems("(blank)").

Cordialement,

PGZ

[Invité]

bonjour,
test ça

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
24
25
26
Sub Test()
   If MasquePivotTdc(ActiveSheet.PivotTables("PageTDC"), "Nom", "(blank);(vide);BOF;(BOFBOF)") = False Then MsgBox "Pas trouvé"
End Sub
Function MasquePivotTdc(TDC As Object, Champ As String, V As String) As Boolean
Dim t
Dim iTdc As Integer
Dim iT As Integer
Dim Trouve As Boolean
MasquePivotTdc = True
t = Split(V & ";", ";")
On Error GoTo Fin
For iT = 0 To UBound(t)
Trouve = False
 If Trim("" & t(iT)) <> "" Then
    For iTdc = 1 To TDC.PivotFields(Champ).PivotItems.Count
        If Trim("" & TDC.PivotFields(Champ).PivotItems(iTdc).Name) = Trim("" & t(iT)) Then Trouve = True: Exit For
    Next
    If Trouve = True Then TDC.PivotFields(Champ).PivotItems(iTdc).Visible = False
 End If
Next
On Error GoTo 0
Exit Function
Fin:
MasquePivotTdc = False
On Error GoTo 0
End Function