Discussion :

[Fvandermeulen]

Où as tu placé le code ?

[tsgri]

Dans ma feuille "consultation" (j'ai aussi esayé dans "thisworkbook" mais ca ne marche pas mieux)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Calculate()
Dim MaVal As String
Application.EnableEvents = False
MaVal = Range("G3")
Worksheet("CONSULTATION").ActiveSheet.PivotTable("TableauBDD").PivotFields("SOCIETE").CurrentPage = MaVal
Application.EnableEvents = True
End Sub

[Fvandermeulen]

C'est bien dans le module de cette feuille, par contre, la syntaxe de la ligne modifiée est incorrecte, il faut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Calculate()
Dim MaVal As String
Application.EnableEvents = False
MaVal = Range("G3")
Worksheets("CONSULTATION").PivotTable("TableauBDD").PivotFields("SOCIETE").CurrentPage = MaVal
Application.EnableEvents = True
End Sub

A+

Edit: Désolé j'avais fait un coquille dans le code, il faut aussi ajouter un s à "worksheet"; c'est de là que vient ton message d'erreur.

[tsgri]

toujours même message et il m'indique en trame bleu le "Worksheet" de la 5ème ligneRéedit : je viens de voir ton Edit donc j'ai réecrit le code mais "propriété ou méthode non géré par cet objet"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Calculate()
Dim MaVal As String
Application.EnableEvents = False
MaVal = Range("G3")
Worksheets("CONSULTATION").ActiveSheet.PivotTable("TableauBDD").PivotFields("SOCIETE").CurrentPage = MaVal
Application.EnableEvents = True
End Sub

[Fvandermeulen]

Tu as été plus rapide que moi sur la lecture, je viens d'ajouter un Edit:
J'avais fais une erreur de frappe, c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("CONSULTATION").PivotTable("TableauBDD").PivotFields("SOCIETE").CurrentPage = MaVal

Désolé de t'avoir fait perdre du temps...

A+

[tsgri]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("CONSULTATION").PivotTable("TableauBDD").PivotFields("SOCIETE").CurrentPage = MaVal

idem message : "méthode ou propriété non reconue" ....

[tsgri]

ca y est : il manquait aussi (c'est ma faute dès la base") un S à PivottableS.
Merci à Toi !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Calculate()
Dim MaVal As String
Application.EnableEvents = False
MaVal = Range("G3")
Worksheets("CONSULTATION").PivotTables("TableauBDD").PivotFields("SOCIETE").CurrentPage = MaVal
Application.EnableEvents = True
End Sub