Bonjour,
Le problème a déjà été posé sur le forum, mais je n'ai pas trouvé de solution au type d'erreur
J'ai deux tcd sur un onglet, avec 4 maîtres, j'ai 1 de ces 4 maîtres à changer en fonction d'une zone de liste saisie en B2
Voici mon code:
Merci à tous,
Le problème a déjà été posé sur le forum, mais je n'ai pas trouvé de solution au type d'erreur
J'ai deux tcd sur un onglet, avec 4 maîtres, j'ai 1 de ces 4 maîtres à changer en fonction d'une zone de liste saisie en B2
Voici mon code:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim trig As String
If Target.Address = "$B$2" Then
trig = Target.Text
For i = 1 To PivotTables.Count
ActiveSheet.PivotTables(i).PivotFields("dd").CurrentPage = trig
Next
End If
End Sub
Merci à tous,