Programmation de Tableaux Croisés

Version imprimable

Bonjour et Bonne Année à tous,

Je me suis fait une petite routine qui manipule un tableau croisé.
Dans cette routine, je veux sélectionner un certain nombre d'item d'un champ (Dans le cas présent, il s'agit de les cocher tous).

J'utilise le code ci-après :
Code:

1 2 3 4 5 6 7 ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date Prev Livraison").CurrentPage = "(All)" With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date Prev Livraison") For I = 1 To .PivotItems.Count .PivotItems(I).Visible = True Next I End With
.

Le nombre d'items est de l'ordre de 400 et immanquablement la routine s'arrête sur le quatrième. Un message apparaît, me signalant

Citation:

l'erreur 1004 - Impossible de définir la propriété 'Visible' de la classe PivotItem

Je ne comprends pas pourquoi cette erreur, les trois premiers items ont été cochés.
Quelqu'un peut-il me dire pourquoi ce plantage ?

Merci d'avance.

Est-ce que le dévoloppement de ton quatrième item de ton TCD n'empièterait pas sur un autre TCD ou sur des quelconques cellules déjà remplies ?

As-tu essayer de développer les items suivants ?

Code:

1
2
3
4
5
6
7
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date Prev Livraison")
        For I = 1 To .PivotItems.Count
            If I <> 4 then
                .PivotItems(I).Visible = True
            End If
        Next I
    End With

Tes 400 items sont dans le même PivotField ?

J'ai trouvé ç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
27
28
29
30
31
32
33
34
35
36
Sub ShowAllItems()
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim objPT As PivotTable
Dim objPTField As PivotField
Dim objPTItem As PivotItem
 
For Each ws In Worksheets
ws.Visible = xlsheetvisible
    For Each objPT In ws.PivotTables
 
    With objPT
'
' Run through all the row fields
For Each objPTField In .RowFields
'
' Get the hidden items and make them visible
For Each objPTItem In objPTField.HiddenItems
objPTItem.Visible = True
Next 'objPTItem
Next 'objPTField
'
' Run through all the column fields
For Each objPTField In .ColumnFields
'
' Get the hidden items and make them visible
For Each objPTItem In objPTField.HiddenItems
objPTItem.Visible = True
Next 'objPTItem
Next 'objPTField
End With
Application.ScreenUpdating = True
 
    Next objPT
Next ws
End Sub

A tester.

Il semblerait que ton erreur vienne du fait que l'un de tes Items ne soit pas visible. A investiguer d'avantage de ton côté.

15/01/2013, 08h50
setepenre

Merci Kimy pour ton aide.
Ta première solution m'a en fait permis de découvrir que le PivotItems.Count me donnait 409 alors qu'en réalité je n'ai que 404 items affichés.
Où est passée la différence ? ???

Je contourne le problème en gérant l'erreur, ainsi je passe outre ces 5 items fantômes et j'ai bien tous mes vrais items cochés.

Encore merci
15/01/2013, 13h18
Kimy_Ire

J'imagine (je parle au conditionnel) que si tu as des dates (par exemple) et que l'une d'elle n'a pas de référence celle-ci est automatiquement masquée par ton TCD tandis qu'elle est dans ton compte de PivotItems.

Donc rendre cet Item visible est impossible. (Je répète : supposition puisque je n'ai pas ton TCD sous les yeux. ^^ )