Gestion des Item dans un TCD en VBA

Version imprimable

Bonjour forum,

J’effectue régulièrement une extraction d'une liste en format XLS. Les critères de cette extraction sont des dates.

La procédure (Macro corrigée) que j’utilise fonctionne quel que soit le nombre de lignes de cette liste. Dans le ICD j’active un PivotFields("Lieu") tous les PivotItems sont passés à False en dur.

Ce qui me pose problème se sont les Item en False et en dur :
Si l’un de ces est absent dans la liste la procédure s’arrête.
Comment faire pour éviter ce blocage.

Merci par avance pour votre conseil.
Cordialement

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
  On Error Resume Next 'un cache misère
    ActiveSheet.PivotTables("PivotTable1").PivotSelect "Lieu[All]", xlLabelOnly, _
        True
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Lieu")
        .PivotItems("Externe AIR LIQUIDE WELDING SOA").Visible = False
        .PivotItems("Externe ALLIANZ STRASBOURG").Visible = False
        .PivotItems("Externe Auxerre ou Sens ?").Visible = False
        .PivotItems("Externe Bureau administratif de la RMN-GP Versailles"). _
        Visible = False
        .PivotItems("Externe CITE DES SCIENCES").Visible = False
        .PivotItems("Externe Conseil des prud'hommes de Rouen").Visible = False
        .PivotItems("Externe DANONE Eaux France").Visible = False
        .PivotItems( _
     End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Lieu")
        .PivotItems("Externe FRANCE TELECOM").Visible = False
        .PivotItems("Externe GUERBET GONESSE").Visible = False
        .PivotItems("Externe GUERBET VILLEPINTE").Visible = False
        .PivotItems("Externe LOUVRES").Visible = False
        .PivotItems("Externe MATTEL France - Salle Vicky").Visible = False
        .PivotItems("Externe RMNGP").Visible = False
        .PivotItems("Externe SAINT DENIS").Visible = False
        .PivotItems("Externe SANOFI Maisons Alfort").Visible = False
        .PivotItems( _
        .PivotItems("Externe TENCATE GEOSYNTHETICS FRANCE SAS").Visible = False
        .PivotItems("Externe UPS ROISSY CDG").Visible = False
        .PivotItems("Partenaire ATP FORMATION GRENOBLE").Visible = False
        .PivotItems("Partenaire ENI SERVICE RENNES").Visible = False
        .PivotItems("Partenaire EVOLUTION LILLE").Visible = False
        .PivotItems("Partenaire FORMATIC-CENTRE TOURS").Visible = False
        .PivotItems("Partenaire GROUPE ARKESYS LYON").Visible = False
        .PivotItems("Partenaire QUIRIS / TAMIA BREST").Visible = False
    End With

03/03/2012, 11h55
Daniel.C

Bonjour,

Est-ce qu'il s'agit de tous les items du champ ? Comme il doit y en avoir un de visible, lequel doit-on laisser affiché ? Si tu ne masque que certains items, ajoute :

Code:

On Error Resume Next

avant ton code et :

Code:

On Error GoTo 0

à la fin.

Bonjour Daniel,

Tous les Items du champ doivent passer en False, je ne souhaite pas répéter la ligne suivante plusieurs fois qu'il y a d'Item dans la liste :

Code:

.PivotItems("Externe AIR LIQUIDE WELDING SOA").Visible = False

Un seul doit s'afficher "Interne Paris" que j'ai activé lors de l'enregistrement de la macro. Le code suivent est implcite:

Code:

.PivotItems("Interne Paris").Visible = True

Mon code ci-dessous fonctionne avec ou sans cette ligne.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 On Error Resume Next 'un cache misère ActiveSheet.PivotTables("PivotTable1").PivotSelect "Lieu[All]", xlLabelOnly, _ True With ActiveSheet.PivotTables("PivotTable1").PivotFields("Lieu") .PivotItems("Interne Paris").Visible = True .PivotItems("Externe AIR LIQUIDE WELDING SOA").Visible = False .PivotItems("Externe AIR LIQUIDE WELDING SOA").Visible = False .PivotItems("Partenaire FORMATIC-CENTRE TOURS").Visible = False .PivotItems("Partenaire GROUPE ARKESYS LYON").Visible = False .PivotItems("Partenaire QUIRIS / TAMIA BREST").Visible = False End With On Error Goto 0

Pas testé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test2()
    ActiveSheet.PivotTables("PivotTable1").PivotSelect "Lieu[All]", xlLabelOnly, _
        True
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Lieu")
        For i = 1 To .PivotItems.Count
            If .PivotItems(i).Name = "Interne Paris" Then
                .PivotItems(i).Visible = True
            Else
                .PivotItems(i).Visible = False
            End If
        Next i
    End With
End Sub

05/03/2012, 01h51
BAHIRI

Bonsoir Daniel,

Je te remercie pour ta solution car elle optimise le code efficacement. Je viens de la tester avec succés.

Cordialement

:D