Discussion :

[bboy-eazy]

Bonjour à tous,


J'essaye de jouer un peu avec les filtres et j'avoue avoir un peu de mal.

J'ai 4 colonnes A,B,C et D:
j'ai la formule =AUJOURDHUI() dans la cellule A1 format dd/mm/yyyy hh:mm

Je veux à l'aide de la macro filtrer selon 4 critères sur la ligne 2:

- Filtrer sur Rupture pour la colonne A
- Filtrer sur <= aujourd'hui pour la colonne B
- Filtrer sur <= aujourd'hui pour la colonne C
- filtrer sur <> vide pour la colonne D

Par contre j'aimerais une seconde macro et j'ai un peu du mal afin de revenir à la normal. (enlever tous les critères de filtres pour faire un reset quoi)

POuvez-vous m'aider svp. J'ai ce début de code qui semble fonctionner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("Liste T&F").Activate
'est ce une bonne chose de passer par selection alors que rien n'est selectionné?
Selection.AutoFilter Field:=1, Criteria1:="Rupture"
Selection.AutoFilter Field:=2, Criteria1:="<=" & Application.RoundUp(ActiveSheet.Cells(1, 1).Value, 0), Operator:=xlAnd
Selection.AutoFilter Field:=3, Criteria1:="<=" & Application.RoundUp(ActiveSheet.Cells(1, 1).Value, 0), Operator:=xlAnd
Selection.AutoFilter Field:=4, Criteria1:="<>"
ActiveSheet.Range("A3").Select
' et la commencer enlever les paramètres de filtre?

Merci d'avance

[goldstar]

Bonjour,

En truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
ActiveSheet.ShowAllData

Cordialement,

[bboy-eazy]

merci c'est parfait