TCD - Filtre commence par
el barto
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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 ?
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:
- TCD - Filtre commence par
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Tcd excel - Guide
- Filtre whatsapp - Accueil - Messagerie instantanée
- Filtre teams - Accueil - Visio
- Je commence la nuit et je termine le matin ✓ - Forum Loisirs / Divertissements
1 réponse
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:
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