Bonjour à tous,
J'ai cette macro pour mon TCD.
J'ai une page de donnée que je remplace régulièrement.
Dans ces données, il arrive que les GROUPE_VIL_1 ou GROUPE_VIL_2 ne soient pas présent en même temps. Lorsque c'est le cas, j'ai une erreur 1004. En revanche quand les 2 sont là, çà fonctionne.
J'ai également essayé de remplacer :
Par :
Mais c'est le même résultat, il semble qu'il faille au moins 2 valeurs différentes pour utiliser le "*".
En vous remerciant d'avance, bonne soirée.
J'ai cette macro pour mon TCD.
Code:
Sub AI_G_MACRO()
Dim WS As Worksheet, PT As PivotTable, PF As PivotField, PI As PivotItem
ActiveSheet.PivotTables("TCD") _
.PivotFields("GROUPE").ClearAllFilters
Set WS = Sheets("PAGE")
Set PT = WS.PivotTables("TCD")
Set PF = PT.PivotFields("GROUPE")
For Each PI In PF.PivotItems
PI.Visible = False
If PI.Name Like "GROUPE_VIL_1" Or PI.Name Like "GROUPE_VIL_2" Then
PI.Visible = True
End If
End SubJ'ai une page de donnée que je remplace régulièrement.
Dans ces données, il arrive que les GROUPE_VIL_1 ou GROUPE_VIL_2 ne soient pas présent en même temps. Lorsque c'est le cas, j'ai une erreur 1004. En revanche quand les 2 sont là, çà fonctionne.
J'ai également essayé de remplacer :
Code:
If PI.Name Like "GROUPE_VIL_1" Or PI.Name Like "GROUPE_VIL_2" ThenPar :
Code:
If PI.Name Like "GROUPE_VIL_*" ThenMais c'est le même résultat, il semble qu'il faille au moins 2 valeurs différentes pour utiliser le "*".
En vous remerciant d'avance, bonne soirée.