XL 2016 filtre multicritère

Staple1600 à dit:

Bonjour le fil,

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

EDITION:
Bonjour job75

Cliquez pour agrandir...

job75 à dit:

Re, salut JM,

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

VB:

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+

Cliquez pour agrandir...

BOISGONTIER à dit:

Bonjour,

VB:

  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

Cliquez pour agrandir...

job75 à dit:

Re, bonjour JB,

Une autre solution avec une fonction VBA :

VB:

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+

Cliquez pour agrandir...

zakariamalki à dit:

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

Cliquez pour agrandir...

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

job75 à dit:

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

Pour le post #9 utiliser le code :

VB:

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

Cliquez pour agrandir...

job75 à dit:

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

Pour le post #9 utiliser le code :

VB:

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

Cliquez pour agrandir...