Question:

Réinitialisez tous les critères de filtre dans toutes les feuilles de calcul lors de l’enregistrement d’un classeur.

Réponse:

Insérez le code suivant dans ce module de classeur.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,Cancel As Boolean)

Dim wks As Worksheet

For Each wks In Worksheets

If wks.FilterMode = True Then

wks.ShowAllData

End If

Next wks

End Sub