XL 2013 filtre à plusieurs critéres

[mobenjilali]

bonjour
Je veux faire un filtre sur la même colonne avec plusieurs critères, le besoin est dans cette formule qui ne fonctionne pas bien sur
merci de votre aide

ActiveSheet.Range("A1:$G$30000").AutoFilter Field:=5, Criteria1:="TEST", Criteria2:="=*DEM**", Criteria3:="=*ETT**", Criteria4:="=*REM**", Criteria5:="=*REF**", Criteria6:="=*SCO**", Criteria7:="=*SOC**", Criteria8:="=*TRT**", Criteria9:="VOIR ", Operator:=xlAnd

 

[fanch55]

Salut, ne serait-ce pas plutôt l'opérateur xlOr à la place de xlAnd ?

 

[patricktoulon]

re
bonjour
je confirme c'est "xlOr"

Sub test()
    ActiveSheet.Range("A1:$G$30000").AutoFilter Field:=5, _
                                                Criteria1:="TEST", _
                                                Criteria2:="=*DEM*", _
                                                Criteria3:="=*ETT*", _
                                                Criteria4:="=*REM*", _
                                                Criteria5:="=*REF*", _
                                                Criteria6:="=*SCO*", _
                                                Criteria7:="=*SOC*", _
                                                Criteria8:="=*TRT*", _
                                                Criteria9:="VOIR ", _
                                                Operator:=xlOr


End Sub

 

[mobenjilali]

bonjour
merci de votre aide, mais j'ai ça ne fonctionne pas
cdt

 

[patricktoulon]

re
bonjour
fait le en vba ce sera plus simple peut être

 

[job75]

Bonjour mobenjilali, fanch55, patricktoulon,

Utilisez la colonne auxiliaire H :

Sub test()
ActiveSheet.Range("H2:H30000") = "=SIGN(COUNT(LN(E2=""TEST""),SEARCH(""DEM"",E2),SEARCH(""ETT"",E2),SEARCH(""REM"",E2),SEARCH(""REF"",E2),SEARCH(""SCO"",E2),SEARCH(""SOC"",E2),SEARCH(""TRT"",E2),LN(E2=""VOIR "")))"
ActiveSheet.Range("H1:H30000").AutoFilter Field:=1, Criteria1:=1
End Sub

On pourrait aussi utiliser le filtre avancé.

A+

 

[patricktoulon]

re
bonjour job75
bien vu la colonne auxiliaire
faudrait ajouter la formule dynamique avec un array

 

[job75]

Le filtre automatique avec Array ne permet pas la recherche partielle.

 

[patricktoulon]

re
c'est pas ce que je voulais dire job75
c'est l’écriture de ta formule intra vba

 

[job75]

La macro pour le filtre avancé entre le critère en H2 :

Sub test2()
ActiveSheet.Range("H2") = "=COUNT(LN(E2=""TEST""),SEARCH(""DEM"",E2),SEARCH(""ETT"",E2),SEARCH(""REM"",E2),SEARCH(""REF"",E2),SEARCH(""SCO"",E2),SEARCH(""SOC"",E2),SEARCH(""TRT"",E2),LN(E2=""VOIR ""))"
ActiveSheet.Range("A1:G30000").AdvancedFilter xlFilterInPlace, ActiveSheet.Range("H1:H2")
End Sub

 

[patricktoulon]

re
ce que je voulais dire c'est cela
comme ça on a qu'un array a gérer ,modifier
et elle peut etre ré utilisée pour une autre colonne

Sub test()
    x = Split("TEST,*DEM,*ETT,*REM,*REF,*SCO,*SOC,*TRT,VOIR  ", ",")    'ajouter ou supprimer au besoins un item
    MsgBox formule(x, "E2")
' tu filtre ici 
End Sub

Function formule(x, cel) As String
'les items pour XLPART doivent etre précédés d'un((*))
    formule = "=SIGN(COUNT("
    For i = 0 To UBound(x)
        If InStr(x(i), "*") > 0 Then x(i) = Replace(x(i), "*", "SEARCH(""""") & """""," & cel & ")" Else x(i) = "LN(" & cel & ",""""" & x(i) & """"")"
    Next
    formule = formule & Join(x, ",")
    Debug.Print formule
End Function

 

[mobenjilali]

Bonjour job75 et patricktoulon

merci à vs deux pour votre aide,

j'ai testé la méthode job75 ça marche nickel.
Cdt