Discussion :

[BAHIRI]

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 :

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
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

[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 :

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

On Error Resume Next

avant ton code et :

Code :

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

On Error GoTo 0

à la fin.

[BAHIRI]

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 :

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

.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 :

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

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

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

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
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

[Daniel.C]

Pas testé :

Code :

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

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

[BAHIRI]

Bonsoir Daniel,

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

Cordialement