Bonjour à tous,

je viens vers vous pour vous demander une requête.

Je suis en train de programmer un fichier excel pour un projet professionel, pour qu'il soit automatiser pour les prochains utilisateurs de ce fichier excel.

j'arrive à bien avancer, mais j'ai un petit soucis lorsque j'actualise plusieurs Tableau croisé Dynamique.

Pour l'instant j'ai écris ce programme :

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
Sub Macro_actu4()
'
' Macro_actu4 Macro
'
' Touche de raccourci du clavier: Ctrl+h
'
    Sheets("Manque recep-Dema").Select
    Range("A18").Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Demandeur2")
        .PivotItems("XXXX").Visible = True
        .PivotItems("YYYY").Visible = True
        .PivotItems("ABCD").Visible = True
        .PivotItems("UIOD").Visible = True
        .PivotItems("JSKEI").Visible = True
        .PivotItems("DDGT").Visible = True
        .PivotItems("LPEEH").Visible = True
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Demandeur2")
        .PivotItems("-------------------------").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Demandeur2"). _
        AutoSort xlDescending, "Somme de Total des factures", ActiveSheet.PivotTables( _
        "Tableau croisé dynamique1").PivotColumnAxis.PivotLines(3), 1
End Sub

Je souhaite que le TCD s'actualise en fonction d'une autre base de données, puis, (là vient ma difficulté) Sélectionner tous les termes

Le probleme c'est qu'a chaque tableau :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
   With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Demandeur2")
        .PivotItems("XXXX").Visible = True
        .PivotItems("YYYY").Visible = True
        .PivotItems("ABCD").Visible = True
        .PivotItems("UIOD").Visible = True
        .PivotItems("JSKEI").Visible = True
        .PivotItems("DDGT").Visible = True
        .PivotItems("LPEEH").Visible = True
    End With
Ne seront pas forcement les mêmes.

Est ce que quelqu'un peut m'aider pour que le code juste au dessus selectionne tous les "PivotItems", et non en fonction des noms ?

Merci d'avance

Je vous souhaite à tous une excellente journée