Macro pour mettre à 0 une cellule

Bonjour,

C'est une macro que j'avais commencé à essayer de faire, mais bon, pas vraiment réussi.

En fait, voilà ce que je recherche.

J'ai une barre de défilement avec une cellule liée qui se trouve sur la feuille (Barre!B3).

Sur cette feuille Barre, se trouve des segments (fenêtre qui permet de filtrer des données liées à un TCD)

Je cherche à ce que ma cellule (Barre!B3) soit à 0 lorsque je clique ou efface sur un les filtres d'un des segments.

Voilà déjà comment se présente au niveau code, les segment lorsque l'on sélectionne un filtre ou efface un filtre.

Sub Remisezero()
'
' Remisezero Macro
'

'
    With ActiveWorkbook.SlicerCaches("Segment_instrument")
        .SlicerItems("accordéon").Selected = True
        .SlicerItems("flute").Selected = False
        .SlicerItems("guitare ").Selected = False
        .SlicerItems("harpe").Selected = False
        .SlicerItems("piano").Selected = False
        .SlicerItems("violon").Selected = False
    End With
    With ActiveWorkbook.SlicerCaches("Segment_lieu")
        .SlicerItems("domicile").Selected = True
        .SlicerItems("ecole").Selected = False
    End With

    ActiveWorkbook.SlicerCaches("Segment_Nom").ClearManualFilter
    ActiveWorkbook.SlicerCaches("Segment_instrument").ClearManualFilter
    ActiveWorkbook.SlicerCaches("Segment_lieu").ClearManualFilter
End Sub

Et voici le fichier joint pour voir cela de plus près.

Merci encore pour ce coup de pouce.

C'est une macro qui doit être active automatiquement.

Je pense qu'elle peut être utile à bien des personnes.

Bonjour,

j'ai essayé un truc mais ca ne marche pas.

Sub Remisezero()
' Remise à zero

Dim cellule

  cellule = Sheets("barre").Range("B3")

  With ActiveWorkbook.SlicerCaches("Segment_instrument")
  With ActiveWorkbook.SlicerCaches("Segment_lieu")

  cellule = 0

 End With
 End With

  ActiveWorkbook.SlicerCaches("Segment_instrument").ClearManualFilter
  ActiveWorkbook.SlicerCaches("Segment_lieu").ClearManualFilter

 cellule = 0

 End Sub