XL 2013 Macro toute simple mais ne fonctionne pas

[Xorys]

Bonjour à tous,

J'ai cette macro pour mon TCD.

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 Sub

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 :

If PI.Name Like "GROUPE_VIL_1" Or PI.Name Like "GROUPE_VIL_2" Then

Par :

If PI.Name Like "GROUPE_VIL_*"  Then

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.

 

[cp4]

Bonjour,

Mais pourquoi tu ouvres 2 discussions pour un même sujet. Ce n'est pas en multipliant ces dernières que tu vas obtenir une solution rapidement. Si tu avais eu au moins l’obligeance de respecter la charte, en joignant un fichier sans données confidentielles. Tu t'attends peut-être de ceux qui auront l'amabilité de te répondre de monter un fichier à ta place.

Bonne journée.

ps: tu rajoutes des conditions sur les plages (vide ou non vide)

 

[Xorys]

Bonjour,

Désolé je ne pensais pas avoir fait de mal

J'ai volontairement créé 2 discussions car en fait c'est pour 2 sujets différents. L'un pour réduire une macro, l'autre pour un fonctionnement qui m'échappe lorsqu'un paramètre n'existe pas.

Pour le fichier, c'était également volontaire car j'ai pensé que pour les experts de ce forum, vous verriez rapidement mon erreur dans ces quelques lignes.

Pour les plages vide ou non vide, tu peux m'éclairer ?

Je vais regarder pour faire un fichier anonyme et le rajouter à mon premier message

Merci pour tes premières réponses en tout cas