est-ce qu'il faut que j'ajoute ce code a la feuille LISTE DE COUPE
Option Explicit
Private Sub Worksheet_Activate()
Dim lo As ListObject
Set lo = Me.ListObjects(1)
If lo.ShowAutoFilter Then
If lo.AutoFilter.FilterMode Then _
lo.AutoFilter.ShowAllData
lo.ShowAutoFilter = False
End If
If lo.ShowAutoFilterDropDown Then _
lo.ShowAutoFilterDropDown = False
Set lo = Nothing
End Sub
Et ajouter ce code a ma feuille EXPORTATION???
Private Sub Worksheet_Activate()
Dim lo As ListObject
Set lo = Me.ListObjects(1)
If lo.ShowAutoFilter Then
If lo.AutoFilter.FilterMode Then _
lo.AutoFilter.ShowAllData
lo.ShowAutoFilter = False
End If
If lo.ShowAutoFilterDropDown Then _
lo.ShowAutoFilterDropDown = False
Set lo = Nothing
End Sub