Bonjour,
J'ai 2 feuilles : 1 = "BDD" avec ma table que je modifie souvent, que je trie, filtre etc.. 2 = "consultation" avec tCD . Je suis sous Excel 2007 francais. Mon TCD est nommé "TableauBDD"
Grâce à la macro ci-dessous, quand je selectionne dans la liste déroulante de ma consultation la société X, allors le choix est repercuté dans le TCD , cela marche mais dès que je vais dans sur ma table et bien alors j'ai le message d'erreur suivant : Erreur d'exécution '1004' Impossible de lire la propriété PivotTables de la classe Worksheet.
Private Sub Worksheet_Calculate()
Dim MaVal As String
Application.EnableEvents = False
MaVal = Range("G4")
ActiveSheet.PivotTables("TableauBDD").PivotFields("SOCIETE").CurrentPage = MaVal
Application.EnableEvents = True
End Sub
Merci de votre aide.
J'ai 2 feuilles : 1 = "BDD" avec ma table que je modifie souvent, que je trie, filtre etc.. 2 = "consultation" avec tCD . Je suis sous Excel 2007 francais. Mon TCD est nommé "TableauBDD"
Grâce à la macro ci-dessous, quand je selectionne dans la liste déroulante de ma consultation la société X, allors le choix est repercuté dans le TCD , cela marche mais dès que je vais dans sur ma table et bien alors j'ai le message d'erreur suivant : Erreur d'exécution '1004' Impossible de lire la propriété PivotTables de la classe Worksheet.
Private Sub Worksheet_Calculate()
Dim MaVal As String
Application.EnableEvents = False
MaVal = Range("G4")
ActiveSheet.PivotTables("TableauBDD").PivotFields("SOCIETE").CurrentPage = MaVal
Application.EnableEvents = True
End Sub
Merci de votre aide.