T
tomi
Guest
bonjour à tous,
je suis ds les TCD et je voudrais pouvoir faire une sélection (en page) sur un premier TCD et que le 2°, issu de la même base et construit de la même manière, affiche des résultats correspondant à la même sélection.
j'ai pris sur le forum une solution pour synchroniser les 2 tcd et je l'ai adapté à mon cas
mais pb: j'ai un message " erreur de compilation; nom ambigu détecté "Worksheet_PivotTableUpdate"
je vous mets mon code ; est-ce que quelqu'un voit l'erreur ??
merci de votre aide très très attendue
Dim bon As Boolean
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim tcd As PivotTable
Dim tcd2 As PivotTable
Dim drg As String
Dim datefin As String
If bon = True Then
bon = False
Exit Sub
Else
Set tcd = ActiveSheet.PivotTables(Target.Name)
drg = tcd.PivotFields("DRG").CurrentPage
datefin = tcd.PivotFields("DATE FIN D'ACTIVITE").CurrentPage
Select Case Target.Name
Case "tableau croisé dynamique 1"
Set tcd2 = ActiveSheet.PivotTables("tableau croisé dynamique 2")
Case Else
Set tcd2 = ActiveSheet.PivotTables("Tableau croisé dynamique 1")
End Select
bon = True
tcd2.PivotFields("DRG ").CurrentPage = drg
bon = True
tcd2.PivotFields("DATE FIN D'ACTIVITE ").CurrentPage = datefin
End If
End Sub
je suis ds les TCD et je voudrais pouvoir faire une sélection (en page) sur un premier TCD et que le 2°, issu de la même base et construit de la même manière, affiche des résultats correspondant à la même sélection.
j'ai pris sur le forum une solution pour synchroniser les 2 tcd et je l'ai adapté à mon cas
mais pb: j'ai un message " erreur de compilation; nom ambigu détecté "Worksheet_PivotTableUpdate"
je vous mets mon code ; est-ce que quelqu'un voit l'erreur ??
merci de votre aide très très attendue
Dim bon As Boolean
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim tcd As PivotTable
Dim tcd2 As PivotTable
Dim drg As String
Dim datefin As String
If bon = True Then
bon = False
Exit Sub
Else
Set tcd = ActiveSheet.PivotTables(Target.Name)
drg = tcd.PivotFields("DRG").CurrentPage
datefin = tcd.PivotFields("DATE FIN D'ACTIVITE").CurrentPage
Select Case Target.Name
Case "tableau croisé dynamique 1"
Set tcd2 = ActiveSheet.PivotTables("tableau croisé dynamique 2")
Case Else
Set tcd2 = ActiveSheet.PivotTables("Tableau croisé dynamique 1")
End Select
bon = True
tcd2.PivotFields("DRG ").CurrentPage = drg
bon = True
tcd2.PivotFields("DATE FIN D'ACTIVITE ").CurrentPage = datefin
End If
End Sub
