Question sur une demo de Thierry

[Jex Celpas]

Salut le forum

j'ai récupéré une demo de Thierry sur les filtres elaborés

ma question :

dans l'exemple ligne 49 on fait le tri sur les valeurs que l'on ne souhaite
pas avoir avec la fonction suivante :
= ESTNA (EQUIV(A50;$D$50:$D$52;0)

comment peut on faire l'inverse c'est à dire avoir les valeurs que l'on souhaite.
J'ai remarqué qu'avec cette formule je pouvais faire des tris sur plusieurs critères différents sans problèmes par rapport à l'utilisation de la zone de critère du filtre elaboré( la formule = selection que d'une seule valeur par critère) . Seul problème c'est que cette formule demande les
valeurs que l'on souhaite exclure et dans mon tableau cela oblige de saisir
toutes ces valeurs ( 10 val à exclure pour uniquement 2 selectionnées)

merci d'avance si Thierry ou un autre excelien pouvais me donner soit la solution soit son imposibilité.

 

[@+Thierry]

Salut Jex, le Forum

Simplement en changeant la Formule :

=EQUIV(A50;$D$50:$D$52;0)

Et si tu dois le faire par VBA, il faut faire ceci :

Sub ListExclusionList()
With Sheets(1).Range("F49:H59")
.Interior.ColorIndex = 39
.ClearContents
End With

With Sheets(1)
.Range("D49") = "Noms"
.Range("D50") = "Thierry"
.Range("D51") = "Ti"
.Range("D52") = "Celeda"
.Range("E49") = ""
.Range("E50").Formula = "=MATCH(A50,$D$50:$D$52,0)"
End With

Range("A49:C59").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"E49:E50"), CopyToRange:=Range("F49:H49"), Unique:=False

End Sub


Bonne soirée
@+Thierry

 

[Jex Celpas]

Merci Thierry pour ton aide.