Microsoft 365 Macro à 2 critères pour filtre auto (valeur cellule + Vide)

[SEBEST]

Bonjour à tous,

J'ai besoin de votre aide pour réussir une macro pour effectuer un filtre auto à deux critères en cliquant sur un bouton
quand il s'agit d'un nom fixe pas de soucis avec Aray + "="
mais comme la valeur de la cellule change, à chaque fois ca me prend soit la valeur, soit les cellules vide mais pas les deux...

voici ma macro :

Sub filtre_2_criteres_vide_et_Manager1()
'
' filtre_2_criteres_vide_et_Manager1 Macro
'
ActiveSheet.Range("A7:Z5000").AutoFilter Field:=2, Criteria1:=Array("Menu!Manager1", "="), Operator:=xlFilterValues

End Sub

malheureusement prends que le filtre "vide" et si j'inverse l'ordre ca prends la cellule mais pas le vide
je vous mets un fichier en pièce jointe pour mieux comprendre

merci d'avance à tous pour votre aide

Sébastien

 

[Staple1600]

Bonjour

Test OK chez moi

Sub test_ok()
Dim vArr(1 To 2) As String
vArr(1) = "toto"
vArr(2) = vbNullString
Range("$A$1:$L$24").AutoFilter Field:=2, Criteria1:=vArr, Operator:=xlFilterValues
End Sub

Je te laisse faire les adaptations idoines sur ton fichier.

 

[SEBEST]

Hello Staple,

Merci pour ton retour, mais ca ne fonctionne pas, car je n'ai pas un nom fixe comme "toto"
je vais chercher une cellule sur une autre feuille (feuille "menu" et cellule "Manager1" et quand je test ta macro, il prends en compte que le vide sur mon filtre auto, mais pas le 2eme critère

si tu vois comment régler mon soucis

Merci d'avance pour ton aide

 

[fanch55]

Bonjour à tous,

    ActiveSheet.Range("A7:Z5000").AutoFilter Field:=2, Criteria1:=Range("MENU!Manager1"), _
        Operator:=xlOr, Criteria2:="="

 

[Staple1600]

Bonjour fanch55

C'est aussi ce qu'avait indiqué mon enregistreur de macros.
Mais comme le demandeur semblait arraytophile

 

[Staple1600]

Re

SEBEST
Il ne faut pas lire mon code VBA dans mes messages

Je te laisse faire les adaptations idoines sur ton fichier.

Donc si tu n'as pas adapté mon code en conséquence, évidemment que cela ne marche pas!

(*) mon petit poisson en chocolat (Pâques oblige)

EDITION: Donc avec l'adaptation effectuée, cela fonctionne

Sub test_ok_bis()
Dim vArr(1 To 2) As String
vArr(1) = [Manager1] ' cellule nommée
vArr(2) = vbNullString
Range("$A$1:$L$24").AutoFilter Field:=2, Criteria1:=vArr, Operator:=xlFilterValues
End Sub

Je te laisse faire l'autre adaptation.

 

[SEBEST]

Top !!! merci j'ai essayé d'adapter mais je ne suis pas suffisamment fort ;-)
en tout cas Fanch55 parfait encore merci à vous deux pour votre aide

 

[Staple1600]

Re

L'autre adaptation dont je parlais, tu as réussi à la faire, non ?
Il s'agissait de changer la référence des cellules donc tu as fait cela, non ?
Remplacer Range("$A$1:$L$24")
par
ActiveSheet.Range("A7:Z5000")

 

[fanch55]

Top !!! merci j'ai essayé d'adapter mais je ne suis pas suffisamment fort ;-)
en tout cas Fanch55 parfait encore merci à vous deux pour votre aide

Comme dit par @Staple1600 , un ti coup d'enregistreur de Macros ....