VBA - effacer une plage de cellules suite modifications date tcd

bonjour a tous

je voudrais effacer une plage de cellule lorsque la date de mon tcd "est modifier

la zone a nettoyer est de ka18 a ka37

l ideal c'est que la macro surveille en permanence ma page et que des modifications de date sur le tcd

l, le nettoyage de la zone soit effectueé sans aucun manip de ma part

voici ce que cela donne avec l'enregistrement automatique de macro mais la il faut lancer la macro

Sub Macro2()
'
' Macro2 Macro

    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "         ")
        .PivotItems("02/10/2018").Visible = True
        .PivotItems("01/10/2018").Visible = False
    End With

    Range("KA18:KA37").Select
    Selection.ClearContents
End Sub

merci de votre aide

Bonjour foufie,

les 2 dernières lignes de ta macro peuvent s'écrire plus simplement ainsi :

[KA18:KA37].ClearContents

car ici, c'est inutile de faire une sélection : tu peux effacer la plage directement, et ton code VBA est plus rapide

pour le reste, comme ton exo est à propos d'un TCD, j'laisse la place à jmd, car c'est l'meilleur spécialiste en TCD que j'connaisse !

j'suis persuadé qu'personne d'autre pourra t'aider mieux qu'lui !

@jmd : t'as vu jmd, y'a tes 3 mots-clé préférés : PivotTables ; PivotFields ; PivotItems

c'est vraiment un exo tout exprès pour toi, hein ?

dhany

petite précision

mon tcd est conçu pour n'avoir qu'une date "active " a la fois

super ! alors ce sera encore plus facile pour jmd de t'aider !

bon après plusieurs test et de nombreuses recherches google >

des que le tcd est actualise , je peux faire mon action ( ici clear ka 18 a ka 37 )

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
  [KA18:KA37].ClearContents
End Sub

merci pour ton retour ! bonne continuation !

dhany