Re : problème colonne tableau croisé dynamique avec macro
Bonjour Pierrot.
Excuse de te deranger, mais g un probleme avec le code ci-dessus qd j'essaye de l'adapter a mon cas (je debute aussi en VBA ):
Sub TCDtest2()
Dim wb As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
'déclaration d'une variable objet de type "PivotItem"
Dim p As PivotItem
Dim Tcd As PivotTable
'neutralisation du rafraichissement d'écran
Application.ScreenUpdating = False
'affectation des variables
Set wb = ActiveWorkbook
Set ws1 = Sheets("accessibility KPI at BH")
Set ws2 = Sheets("retainability and qos kpi at BH")
wb.RefreshAll
ws1.Activate
'bloc "with" permettant l'exécution d'une série d'instructions
'sur le champ "traitement" du TCD (pivottables) 1 placé sur la feuille 1(code name de
'la feuille et non le nom de l'onglet : je ne comprends pas bien la différence
With ws1.PivotTables(1).PivotFields("Date")
'boucle sur tous les items du champ "traitement"
For Each p In .PivotItems
'rend visible l'items
p.Visible = True
'là je suis bloquée avec le message suivant : Run-time error '1004' :
'Unable to set the visible property of the pivotitem class
'item suivant
Next p
'2ème boucle sur les items du champ "traitement"
For Each p In .PivotItems
'si item différent de "date-1" alors il est masqué
If CDate(p.value2) <> date-1 Then p.Visible = False
'item suivant
Next p
End With
'mise à joutr de l'écran réactivée
Application.ScreenUpdating = True
End Sub
De plus, comme tu le vois, g 2 feuilles contenant des TCD a mettre a jour (tous avec un seul item : la date de la veille) et j'aimerai savoir comment effectuer cette operation en une seule boucle pour les deux feuilles, sachant que qd on selectionne plusieurs feuilles en mm tps les options des TCD ne sont plus modifiables. Peux-tu m'aider stp?
NB: SURTOUT NE VOUS SENTEZ PAS EXCLU DE CETTE DISCUSSION : TOUTE CONTRIBUTION SERA LA BIENVENUE D'OU QUELLE VIENNE.