Suppression de filtres

Bonjour à tous,

j'aimerais créer un bouton "actualiser" sur mes feuilles de résultats qui permet premièrement de supprimer les filtres de tout les segments de la feuille et ensuite actualisé les données dans le tcd …

étant novice je n'y arrive pas sinon je ne viendrais pas chercher de l'aide ici ;)

merci d'avance pour votre aide

Salut flomahe,

En faisant ceci tu trouveras rapidement...

j'ai déjà essayer mais je n'y arrive pas .. sinon je serais pas venu ici… merci quand même

As-tu essayé cela ?
Il faut que ta feuille soit la feuille active donc à mettre avant :

Worksheets("Feuil1").Select

j'ai tester sauf que j'arrive pas à l'intégrer sur mon bouton .. et ca ne retire pas les filtre selectionnés de mes segments ...

Re,

Dans un module tu met :

Sub Refraichissement_classeur()

    'On désactive les messages d'alertes d'excel et on désactive le défilement des macros
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Dim Sslice As Variant

    ThisWorkbook.Worksheets("Base").Activate
    Range("A1").Select

    On Error Resume Next
    ActiveSheet.ShowAllData

    ThisWorkbook.Worksheets("Résultats usine").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh

    For Each Sslice In ActiveWorkbook.SlicerCaches
        Sslice.ClearManualFilter
    Next

    ThisWorkbook.Worksheets("Résultats zone").Select

    Application.DisplayAlerts = True

End Sub

Et tu appelles la macro au clique du bouton :

Private Sub CommandButton1_Click()

    Call Refraichissement_classeur

End Sub

Top merci beaucoup