Bonjour
Ma macro a un probleme voici la VBA
Public MaCell As Date
Sub macro1()
Sheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date "). _
CurrentPage = " & MaCell & "
End Sub
Est sur la feuilles
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("A1")) Is Nothing) Then
Call macro1
End If
End Sub
un fichier joint pouver vous le modifier est me le renvoyer avec la macro modifier je vous en remercie.
Ma macro a un probleme voici la VBA
Public MaCell As Date
Sub macro1()
Sheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date "). _
CurrentPage = " & MaCell & "
End Sub
Est sur la feuilles
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("A1")) Is Nothing) Then
Call macro1
End If
End Sub
un fichier joint pouver vous le modifier est me le renvoyer avec la macro modifier je vous en remercie.