Discussion :

[Orda80]

Bonjour à tous,

je suis entrain de faire un petit code en VBA, et j'ai besoin de faire le filtre des valeurs qui se termine par TRG

est ce que vous pouvez m'indiquer s'il vous plait la formule pour effectuer ce filtre par Macro
je vous remercie par avance

Orda

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
   ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Transaction"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
        "Transaction")

     
'ne pas filtrer les valeurs qui se termine par TRG 
   .PivotItems(*"TRG").Visible = False
       

    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Source-ICP"). _
        EnableMultiplePageItems = True

[BENNASR]

bonjour
je sais pas si c'est que tu cherches :

Code :

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

1
2
3
Sub test()
ActiveSheet.Range("$A$1:$G$107194").AutoFilter Field:=1, Criteria1:="*TRG"
End Sub

[Menhir]

j'ai besoin de faire le filtre des valeurs qui se termine par TRG

Place un filtre sur tes données (Ruban Données > Icone Filtrer).
Déclenche l'enregistreur automatique de macro > Clique sur le bouton de filtre de la colonne souhaitée > Filtres textuels > Terminé par > TRG dans le champs de droite > Ok
Arrêter l'enregistreur automatique.

Dans ton VBE, tu auras 90% du code dont tu as besoin.
Il te restera à le comprendre pour adapter les 10% restant.

[Orda80]

Bonjour,
je vous remercie pour vos réponses,
@Menhir merci beaucoup pour ton astuce c'est une très bonne façon pour connaitre les fonctions, sauf que ca ne marche pas avec mon besoin

@Benasser désolée je n'ai pas donnée plus de détaille pour expliquer le besoin, je voulais simplifier mais ce n'etait pas très claire.

En gros j'ai un TCD et j'ai besoin de sélectionner que les valeurs qui se termine par "_C" ou "vide" ou bien d'exclure des valeurs qui se termine par SRC ou TRG
pour avoir au final que les valeurs qui se termine par "_C" et les "vide"

ci-joint une capture d'écran pour mieux comprendre, j’espère que c'est plus claire

Many Thanks
Orda

[eriiic]

Bonjour à tous,

en partant de l'enregistrement de macro :

Code :

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

1
2
3
4
5
6
7
    Dim pi As PivotItem
    With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Transaction")
        For Each pi In .PivotItems
            pi.Visible = pi.Value Like "*_C"
        Next pi
        .PivotItems("(blank)").Visible = True
    End With

Non testé bien sûr, mais ça te donne la direction.
eric

[Menhir]

@Menhir merci beaucoup pour ton astuce c'est une très bonne façon pour connaitre les fonctions, sauf que ca ne marche pas avec mon besoin

Etant donné qu'un TCD contient déjà par nature un filtre, je ne vois pas pourquoi ce ne serait pas possible.
Encore fallait-il essayer...

Code :

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

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("A"). PivotFilters.Add2 Type:=xlCaptionEndsWith, Value1:="TRG"

[Orda80]

Merci Menhir je vais tester ton code si ca marche aussi, on apprend des choses ici

Merci beaucoup Eric, ca marché dés le premier test