XL 2016 filtre multicritère

[zakariamalki]

Bonjour,
je veux realiser un Ce lien n'existe plus sur une colonne avec un critère de commencer par
j'ai essayé ca mais ca marche pas

ActiveSheet.Range("A" & 1 & ":W" & lastrow).AutoFilter Field:=18, Criteria1:=Array("=ESCALADE*", "=FAUX MANQUANT*", "=SUIVI PROJET*"), Operator:=xlFilterValues

Merci d'avance

 

[job75]

Bonjour zakariamalki, bienvenue sur XLD,

Au lieu du filtre automatique utilisez le filtre avancé, nombreux exemples sur le forum.

A+

 

[Staple1600]

Bonjour le fil,

zakariamalki
Joindre un fichier Excel pourrait ne pas nuire à la résolution de ta question

EDITION:
Bonjour job75

 

[zakariamalki]

Bonjour le fil,

zakariamalki
Joindre un fichier Excel pourrait ne pas nuire à la résolution de ta question

EDITION:
Bonjour job75

MERCI pour votre réponse je vais essayer

 

[job75]

Re, salut JM,

Pour éviter de vous fatiguer puisqu'il n'y a pas grand-chose à comprendre :

Sub Filtrer()
[Z2] = "=OR(LEFT(R2,8)=""ESCALADE"",LEFT(R2,13)=""FAUX MANQUANT"",LEFT(R2,12)=""SUIVI PROJET"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]
End Sub

Police blanche pour la cellule Z2.

A+

 

[BOISGONTIER]

Bonjour,

  ActiveSheet.Range("$A$1:$w$100").AutoFilter Field:=18, Criteria1:=Array("escalade", "suivi projet","faux manquant", Operator:=xlFilterValues

Le filtre automatique

En PJ, un exemple pour faire une recherche par contenu

Boisgontier

 

[zakariamalki]

Re, salut JM,

Pour éviter de vous fatiguer puisqu'il n'y a pas grand-chose à comprendre :

Sub Filtrer()
[Z2] = "=OR(LEFT(R2,8)=""ESCALADE"",LEFT(R2,13)=""FAUX MANQUANT"",LEFT(R2,12)=""SUIVI PROJET"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]
End Sub

Police blanche pour la cellule Z2.

A+

Merci ca marche

 

[zakariamalki]

Bonjour,

  ActiveSheet.Range("$A$1:$w$100").AutoFilter Field:=18, Criteria1:=Array("escalade", "suivi projet","faux manquant", Operator:=xlFilterValues

Le filtre automatique

En PJ, un exemple pour faire une recherche par contenu

Boisgontier

Merci

 

[job75]

Re, bonjour JB,

Une autre solution avec une fonction VBA :

Sub Filtrer()
[Z2] = "=CommencePar(R2,""ESCALADE"",""FAUX MANQUANT"",""SUIVI PROJET"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]
End Sub

Function CommencePar(x$, crit1$, Optional crit2$ = "µ", Optional crit3$ = "µ") As Boolean
CommencePar = x Like crit1 & "*" Or x Like crit2 & "*" Or x Like crit3 & "*"
End Function

Le code de la fonction doit impérativement être placé dans un module standard.

A+

 

[zakariamalki]

Re, bonjour JB,

Une autre solution avec une fonction VBA :

Sub Filtrer()
[Z2] = "=CommencePar(R2,""ESCALADE"",""FAUX MANQUANT"",""SUIVI PROJET"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]
End Sub

Function CommencePar(x$, crit1$, Optional crit2$ = "µ", Optional crit3$ = "µ") As Boolean
CommencePar = x Like crit1 & "*" Or x Like crit2 & "*" Or x Like crit3 & "*"
End Function

Le code de la fonction doit impérativement être placé dans un module standard.

A+

Pour filter les valeurs différents au valeur des filtre on peut remplacer = avec <> ?

 

[job75]

Pour filter les valeurs différents au valeur des filtre on peut remplacer = avec <> ?

Pour le code du post #5 remplacer "=" par "<>" et "OR" par "AND".

Pour le post #9 utiliser le code :

Sub Filtrer()
[Z2] = "=CommencePasPar(R2,""ESCALADE"",""FAUX MANQUANT"",""SUIVI PROJET"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]
End Sub

Function CommencePasPar(x$, crit1$, Optional crit2$ = "µ", Optional crit3$ = "µ") As Boolean
CommencePasPar = Not x Like crit1 & "*" And Not x Like crit2 & "*" And Not x Like crit3 & "*"
End Function

 

[zakariamalki]

Pour le code du post #5 remplacer "=" par "<>" et "OR" par "AND".

Pour le post #9 utiliser le code :

Sub Filtrer()
[Z2] = "=CommencePasPar(R2,""ESCALADE"",""FAUX MANQUANT"",""SUIVI PROJET"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]
End Sub

Function CommencePasPar(x$, crit1$, Optional crit2$ = "µ", Optional crit3$ = "µ") As Boolean
CommencePasPar = Not x Like crit1 & "*" And Not x Like crit2 & "*" And Not x Like crit3 & "*"
End Function

Merci bien pour vos réponses

 

[BOISGONTIER]

Filtre inverse d'une liste avec le filtre auto et filtre avancé

Boisgontier

 

[zakariamalki]

Pour le code du post #5 remplacer "=" par "<>" et "OR" par "AND".

Pour le post #9 utiliser le code :

Sub Filtrer()
[Z2] = "=CommencePasPar(R2,""ESCALADE"",""FAUX MANQUANT"",""SUIVI PROJET"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]
End Sub

Function CommencePasPar(x$, crit1$, Optional crit2$ = "µ", Optional crit3$ = "µ") As Boolean
CommencePasPar = Not x Like crit1 & "*" And Not x Like crit2 & "*" And Not x Like crit3 & "*"
End Function

j'ai essayé ca
[Z2] = "<>AND(LEFT(R2,8)=""ESCALADE"",LEFT(R2,13)=""FAUX MANQUANT"",LEFT(R2,12)=""SUIVI PROJET"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]
mais toutes les champs ont disparu

 

[job75]

[Z2] = "=AND(LEFT(R2,8)<>""ESCALADE"",LEFT(R2,13)<>""FAUX MANQUANT"",LEFT(R2,12)<>""SUIVI PROJET"")"