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
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
A voir également:
- TCD - Filtre commence par
- Photo filtre gratuit - Télécharger - Retouche d'image
- Excel commence par ✓ - Forum Bureautique
- Tcd excel - Guide
- Sql commence par ✓ - Forum Webmastering
- Numero qui commence par 09 ✓ - Forum Mobile
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
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:
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