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

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #2

Bonjour

Test OK chez moi

VB:

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.

 

Vote positif 0 Vote négatif

S

SEBEST

XLDnaute Nouveau

• 5 Avril 2021

• #3

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 5 Avril 2021

• #4

Bonjour à tous,

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #5

Bonjour fanch55

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #6

Re

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

Staple¸ suçotant son petit poisson(*)¸ à dit:

Je te laisse faire les adaptations idoines sur ton fichier.

Cliquez pour agrandir...

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

VB:

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.

 

Vote positif 0 Vote négatif

S

SEBEST

XLDnaute Nouveau

• 5 Avril 2021

• #7

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #8

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")

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 6 Avril 2021

• #9

SEBEST à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif