Décocher une case sur un Tableau Croisé Dynamique VBA

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:

---

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 beaucoupPièce jointe 160048

Bonsoir.

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

Tu peux remplacer

Code:

---

.PivotItems("vide")

---

par

Code:

---

.PivotItems("(blank)").

---

Cordialement,

PGZ

bonjour,
test ça

Code:

---

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

---