Discussion :

[paul42]

Bonjour,
J'ai un tableau croisé dynamique sur une feuille excel, il est mis à jour via une procédure qui utilise une base de données access. Après le rafraîchissement je veux mettre en rouge la police de certaines cellules en fonction des chiffres qui s'affichent sur la ligne correspondante. j'ai fait une procédure qui marche, sauf lorsqu'on clique sur la cellule en question pour afficher les détails des informations croisées, toutes les cellules reviennent à leur mise en forme initiale.

Je modifie la police de la cellule avec cette ligne de code

Code :

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

Worksheets("MaPage").Cells(LigneCellule, ColonneCellule).Font.ColorIndex = maCouleurPolice

Avant de changer la couleur, je masque les détails de toutes les lignes, mais ça prend beaucoup de temps comparer à la manipulation du bouton "masquer" de la barre d'outil en étant focaliser sur le titre du champ


Je ferme item par item, n'ayant pas trouver de propriété "ShowDetail" pour "PivotFields".

Code :

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

1
2
3
4
5
6
   For Each PvIt In maTablePivot.PivotFields("MonChamp").PivotItems
      If PvIt.ShowDetail = True Then
          PvIt.ShowDetail = False
          Else:
      End If
   Next

Pouvez-vous m'aider à apppliquer une mise en forme persistante sur le tableau croisé dynamique, s'il vous plaît?

[tirex28]

Bonsoir,

Je ne suis pas très calé en TCD mais pour masquer/afficher sans boucle
tu peux essayer ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Pour afficher les détails
With ActiveSheet.PivotTables("NomDuTableau")
    .PivotSelect "NomDuChamp[All]", xlLabelOnly, True
    Selection.ShowDetail = True
End With
 
'Pour masquer les détails
With ActiveSheet.PivotTables("NomDuTableau")
    .PivotSelect "NomDuChamp[All]", xlLabelOnly, True
    Selection.ShowDetail = False
End With

N'oublie pas le [All] après le nom du champ.

Cordialement,

Tirex28/