J .jakob@gmail.com XLDnaute Nouveau 22 Février 2017 #1 Bonjour à tous je bloc depuis un moment pour utiliser une variable dans un filtre de TCD Si quelque pouvais m'aider sur ce coup ca serait top D'avance merci Sub Macro4() ' ' Macro4 Macro ' Dim monChampText As String monchampTexte = Range("A1").Value ' ActiveSheet.PivotTables("TCD_1").PivotFields("STITNO").ClearAllFilters ActiveSheet.PivotTables("TCD_1").PivotFields("STITNO").CurrentPage = _ monchampTexte.Value End Sub
Bonjour à tous je bloc depuis un moment pour utiliser une variable dans un filtre de TCD Si quelque pouvais m'aider sur ce coup ca serait top D'avance merci Sub Macro4() ' ' Macro4 Macro ' Dim monChampText As String monchampTexte = Range("A1").Value ' ActiveSheet.PivotTables("TCD_1").PivotFields("STITNO").ClearAllFilters ActiveSheet.PivotTables("TCD_1").PivotFields("STITNO").CurrentPage = _ monchampTexte.Value End Sub
JCGL XLDnaute Barbatruc 22 Février 2017 #2 Byonjour à tous, Peux-tu essayer avec : VB: Sub Macro4() Dim monChampTexte As String monChampTexte = Range("A1").Value ActiveSheet.PivotTables("TCD_1").PivotFields("Chgt Pilote").ClearAllFilters ActiveSheet.PivotTables("TCD_1").PivotFields("Chgt Pilote").CurrentPage = monChampTexte End Sub A+ à tous Vote positif 0 Vote négatif
Byonjour à tous, Peux-tu essayer avec : VB: Sub Macro4() Dim monChampTexte As String monChampTexte = Range("A1").Value ActiveSheet.PivotTables("TCD_1").PivotFields("Chgt Pilote").ClearAllFilters ActiveSheet.PivotTables("TCD_1").PivotFields("Chgt Pilote").CurrentPage = monChampTexte End Sub A+ à tous
J .jakob@gmail.com XLDnaute Nouveau 23 Février 2017 #3 Bonjour Merci pour ta réponse. Je l'ai testé ca fonctionne. je vais continuer à avancer sur mon fichier. Encore merci Bonne journée Cordialement Sébastien Vote positif 0 Vote négatif
Bonjour Merci pour ta réponse. Je l'ai testé ca fonctionne. je vais continuer à avancer sur mon fichier. Encore merci Bonne journée Cordialement Sébastien