XL 2016 Création Macro pour modifier des filtres

[zendb]

Bonjour à tous,

Je cherche à réaliser des macros me permettant de modifier à la volée les filtres de deux colonnes.

Macro 1 :
- sélectionner les cellules vides de la colonne A
- sélectionner les cellules qui commencent pas AMB dans la colonne B

Macro 2 :
- sélectionner les cellules vides de la colonne A
- sélectionner les cellules qui commencent pas CF dans la colonne B

Macro 3 :
- réinitialiser les filtres des colonnes A et B (tout afficher)

Sachant que le fichier d'origine s'étend sur les colonnes A et B et les lignes de 1 à 1125 (mais pouvant possiblement s'étendre)

Merci +++

 

[sylvanu]

Bonjour Zendb,
Un essai en PJ avec :

Sub Macro1()
    Application.ScreenUpdating = False
    On Error Resume Next
    Worksheets(1).ShowAllData
    [A1].AutoFilter Field:=1, Criteria1:="="
    [A1].AutoFilter Field:=2, Criteria1:="=*AMB*", Operator:=xlAnd
    Application.ScreenUpdating = True
End Sub
Sub Macro2()
    Application.ScreenUpdating = False
    On Error Resume Next
    Worksheets(1).ShowAllData
    [A1].AutoFilter Field:=1, Criteria1:="="
    [A1].AutoFilter Field:=2, Criteria1:="=*CF*", Operator:=xlAnd
    Application.ScreenUpdating = True
End Sub
Sub Macro3()
    On Error Resume Next
    Worksheets(1).ShowAllData
End Sub

 

[Phil69970]

Bonjour @zendb
Edit : Bonjour Sylvain

Je te propose ce fichier

*Merci de ton retour

@Phil69970

 

[zendb]

Top !! ça fonctionne <3

par contre, fichier partagé donc impossible à utiliser (j'avais oublié ce point)