Contrôle TCD avec une Macro
Peate30
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
Peate30 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Peate30 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis débutant avec les macros.
Je veux modifier dynamiquement un filtre de plusieurs TCD avec une macro.
Dans mon TCD le filtre à modifier est la journée. J’ai créé une liste déroulante avec tous les jours de la semaine. Quand je veux compléter l’enregistrement de ma macro dans VBA, j’obtiens « Erreur de Syntaxe ».
Merci de votre aide !
Sub ListeSynchro()
'
' ListeSynchro Macro
'
'
ActiveSheet.PivotTables("PivotTables2").(PivotFields("JOURNÉE").ClearAllFilters
ActiveSheet.PivotTables("PivotTables2").(PivotFields("JOURNÉE").CurrentPage = ActiveSheet.Range("AO17").Value
ActiveSheet.PivotTables("PivotTables4").(PivotFields("JOURNÉE").ClearAllFilters
ActiveSheet.PivotTables("PivotTables4").(PivotFields("JOURNÉE").CurrentPage = ActiveSheet.Range("AO17").Value
ActiveSheet.PivotTables("PivotTables6").(PivotFields("JOURNÉE").ClearAllFilters
ActiveSheet.PivotTables("PivotTables6").(PivotFields("JOURNÉE").CurrentPage = ActiveSheet.Range("AO17").Value
End Sub
Je suis débutant avec les macros.
Je veux modifier dynamiquement un filtre de plusieurs TCD avec une macro.
Dans mon TCD le filtre à modifier est la journée. J’ai créé une liste déroulante avec tous les jours de la semaine. Quand je veux compléter l’enregistrement de ma macro dans VBA, j’obtiens « Erreur de Syntaxe ».
Merci de votre aide !
Sub ListeSynchro()
'
' ListeSynchro Macro
'
'
ActiveSheet.PivotTables("PivotTables2").(PivotFields("JOURNÉE").ClearAllFilters
ActiveSheet.PivotTables("PivotTables2").(PivotFields("JOURNÉE").CurrentPage = ActiveSheet.Range("AO17").Value
ActiveSheet.PivotTables("PivotTables4").(PivotFields("JOURNÉE").ClearAllFilters
ActiveSheet.PivotTables("PivotTables4").(PivotFields("JOURNÉE").CurrentPage = ActiveSheet.Range("AO17").Value
ActiveSheet.PivotTables("PivotTables6").(PivotFields("JOURNÉE").ClearAllFilters
ActiveSheet.PivotTables("PivotTables6").(PivotFields("JOURNÉE").CurrentPage = ActiveSheet.Range("AO17").Value
End Sub
A voir également:
- Contrôle TCD avec une Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Tcd excel - Guide
- Fan controle - Télécharger - Optimisation
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Erreur d'exécution « 1004 »:
Erreur définie par l'application ou par l'objet