TCD - Filtre commence par

Fermé
el barto - 21 oct. 2014 à 20:04
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 23 oct. 2014 à 12:07
Bonjour,

je ne suis pas un expert en macro donc quand j'ai besoin de faire une macro j'utilise l'enregistreur de macro et après j'ajuste directement dans le code.
Mon problème : pour faire simple j'ai un tableau avec en colonne A des pays et dans les autres colonnes d'autres donnée peut importe ^^.
Bref je fais un TCD et dans filtre je met la colonne des pays. J'aimerais pouvoir dans mon TCD filtrer sur les pays qui commencent par la lettre A. Avec l'enregistreur de macro il me semble qu'il retire les autres pays mais ça ne me satisfait pas car le tableau va bouger dans pas de valeurs fixe dans la macro.
En manuel il suffit juste de taper la première lettre et c'est bon mais en macro comment fait-on ?
A voir également:

1 réponse

f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 1 678
Modifié par f894009 le 23/10/2014 à 12:08
Bonjour,

un exemple:

changez le nom du TCD

code VBA a mettre dans le VBA de la feuille du TCD, ici choix lettre(s) debut en A1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("pays"). _
ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("pays"). _
PivotFilters.Add2 Type:=xlCaptionBeginsWith, Value1:=Target
End If
End Sub
0