Discussion :

[Nairolf87]

Bonjour,
J'utilise VBA a travers des tableaux croisés dynamiques
Je voudrais juste afficher certains Pivotitems

Donc voila j'ai des pivotitems qui sont caché par ce code dans VBA

Code :

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

1
2
3
4
5
.PivotItems("France").Visible = False
.PivotItems("Angleterre").Visible = False
.PivotItems("Irlande").Visible = False
.PivotItems("Pays-Bas").Visible = False
.PivotItems("Belgique").Visible = False

seulement la liste s'agrandi tout les jours

les PivotItems que je souhaite afficher contiennent le mot "Support"
Comment faire pour que tous les pivotitems qui contiennent le mot support soit True et les autres False ?


J'ai un début de formule qui me permet d'afficher qu'un seul pivotItem et de cacher tous les autres mais je n'arrive pas à étendre la formule pour d'autre pivotItem...

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
 
Dim monPivIt As Object, Mavariable
Mavariable = "Support France"
Application.ScreenUpdating = False
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Pays")
 
For Each monPivIt In .PivotItems
monPivIt.Visible = True
Next
On Error Resume Next
For Each monPivIt In .PivotItems
If monPivIt.Name <> Mavariable Then monPivIt.Visible = False
Next
End With
Application.ScreenUpdating = True

Quelqu'un peut m'aider?

[DeaD78]

Bonjour,

Code :

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

1
2
3
If monPivIt.Name like "*Support*" then
    'tu mets à true
End if

Cela te convient-il ?

PS : tu peux traduire, en français, par "si le nom de monPivIt contient Support". Du coup, tu affiches tous ceux qui sont nécessaires dans ta condition.

[Nairolf87]

oui parfait c'est ca qu'il me fallait !
merci