XL 2016 filtre multicritère

zakariamalki

XLDnaute Nouveau
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
 

zakariamalki

XLDnaute Nouveau
[Z2] est la cellule dans laquelle la formule du critère de tri est entrée.
Bonjour
j'ai essayer ce code pour filtre sur la colonne commentaire et situation mais ca ne fonctionne pas tu peut vérifier stp
commentarire dans la colonne R et situation colonne U

Public Sub filtre()

[Z2] = "=AND(LEFT(R2,8)<>""ESCALADE"",LEFT(R2,13)<>""FAUX MANQUANT"",LEFT(R2,12)<>""SUIVI PROJET"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]

[Z2] = "=AND(LEFT(U2,4)<>""reçu"",LEFT(U2,13)<>""FAUX MANQUANT"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]

End Sub
 

zakariamalki

XLDnaute Nouveau
Bonjour
j'ai essayer ce code pour filtre sur la colonne commentaire et situation mais ca ne fonctionne pas tu peut vérifier stp
commentarire dans la colonne R et situation colonne U

Public Sub filtre()

[Z2] = "=AND(LEFT(R2,8)<>""ESCALADE"",LEFT(R2,13)<>""FAUX MANQUANT"",LEFT(R2,12)<>""SUIVI PROJET"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]

[Z2] = "=AND(LEFT(U2,4)<>""reçu"",LEFT(U2,13)<>""FAUX MANQUANT"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]

End Sub

ci joint le fichier
 

Pièces jointes

  • Echéances_22_7_2019_1071757.xlsx
    336.2 KB · Affichages: 3

zakariamalki

XLDnaute Nouveau
[Z2] est la cellule dans laquelle la formule du critère de tri est entrée.
Bonjour
j'ai essayer ce code pour filtre sur la colonne commentaire et situation mais ca ne fonctionne pas tu peut vérifier stp
ci joint le fichier

Public Sub filtre()

[Z2] = "=AND(LEFT(R2,8)<>""ESCALADE"",LEFT(R2,13)<>""FAUX MANQUANT"",LEFT(R2,12)<>""SUIVI PROJET"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]

[Z2] = "=AND(LEFT(U2,4)<>""reçu"",LEFT(U2,13)<>""FAUX MANQUANT"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]

End Sub
 

Pièces jointes

  • Echéances_22_7_2019_1071757.xlsx
    336.2 KB · Affichages: 3

zakariamalki

XLDnaute Nouveau
Bonjour
j'ai essayer ce code pour filtre sur la colonne commentaire et situation mais ca ne fonctionne pas tu peut vérifier stp
ci joint le fichier

Public Sub filtre()

[Z2] = "=AND(LEFT(R2,8)<>""ESCALADE"",LEFT(R2,13)<>""FAUX MANQUANT"",LEFT(R2,12)<>""SUIVI PROJET"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]

[Z2] = "=AND(LEFT(U2,4)<>""reçu"",LEFT(U2,13)<>""FAUX MANQUANT"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]

End Sub
j'ai essayer ce code est ca fonctionne
Public Sub filtre()

[Z2] = "=AND(LEFT(R2,8)<>""ESCALADE"",LEFT(R2,13)<>""FAUX MANQUANT"",LEFT(R2,12)<>""SUIVI PROJET"",LEFT(U2,4)<>""reçu"",LEFT(U2,12)<>""FAUXMANQUANT"")"
[A:W].AdvancedFilter xlFilterInPlace, [Z1:Z2]

End Sub
 

Discussions similaires

Réponses
7
Affichages
3 K
Compte Supprimé 979
C
Réponses
1
Affichages
2 K
Compte Supprimé 979
C

Statistiques des forums

Discussions
312 343
Messages
2 087 440
Membres
103 546
dernier inscrit
mohamed tano