Bonjour à tous,
Je n'arrive pas à trouver une solution à mon problème de filtre sur colonne de tableau.
J'ai une macro qui génère autant de tableau qu'il n'y a de ligne dans mon TCD et applique un filtre à la colonne I, ce filtre est une donnée variable stockée dans une cellule.
Tout fonctionne mais sur quelques tableaux, le filtre ne s'applique pas alors même que mes conditions apparaissent correct quand je clique sur le bouton "filtre, supérieur a" le montant y figure déjà et ce n'est que lorsque que j'en sort que mon tableau s'actualise... un bug?? en plus cela ne se fait que sur quelques tableaux, pas tous.
Alors je cherche a actualiser le filtre mais "ActiveSheet.AutoFilter.ApplyFilter" me renvoi une erreur.
Mon code :
Quelqu'un a une idée?
Je n'arrive pas à trouver une solution à mon problème de filtre sur colonne de tableau.
J'ai une macro qui génère autant de tableau qu'il n'y a de ligne dans mon TCD et applique un filtre à la colonne I, ce filtre est une donnée variable stockée dans une cellule.
Tout fonctionne mais sur quelques tableaux, le filtre ne s'applique pas alors même que mes conditions apparaissent correct quand je clique sur le bouton "filtre, supérieur a" le montant y figure déjà et ce n'est que lorsque que j'en sort que mon tableau s'actualise... un bug?? en plus cela ne se fait que sur quelques tableaux, pas tous.
Alors je cherche a actualiser le filtre mais "ActiveSheet.AutoFilter.ApplyFilter" me renvoi une erreur.
Mon code :
VB:
Sub Filtre_des_tableaux()
'
' Macro2 Macro
'
Application.ScreenUpdating = False
Sheets("TCD").Select
ActiveWorkbook.RefreshAll
nbval = Sheets("TCD").Range("nbval").Value
For v = 10 To nbval + 9
'
Range("D" & v).Select
Selection.ShowDetail = True
Sheets("TCD").Select
Next v
For x = 1 To nbval
y = x + 9
Sheets("Feuil" & x).Select
ActiveSheet.ListObjects(1).Range.AutoFilter Field:=9, Criteria1:=">" & Sheets("TCD").Range("G" & y).Value, _
Operator:=xlAnd
ActiveWorkbook.RefreshAll
Next x
Application.ScreenUpdating = True
Sheets("TCD").Select
End Sub
Quelqu'un a une idée?
Dernière édition: