VBA filtre multicritère différent de

[Niconinial]

Bonjour à tous,

J'aimerais réaliser un filtre auto avec plusieurs critères en exclusion
j'utilise le code suivant qui ne marche pas,

[A1].AutoFilter Field:=10, Criteria1:=Array("<>EU1", "<>EU3", "<>EUS", "<>EUT"), Operator:=xlFilterValues

Il fonctionne très bien quand je retire les symboles <>, mais je veux filtrer sur les lignes différentes de ces 4 critères.

Merci d'avance pour votre aide,
Nico

 

[DoubleZero]

Re : VBA filtre multicritère différent de

Bonjour, Niconinial, le Forum,

... filtre auto avec plusieurs critères en exclusion...

Ne sachant comment procéder, une suggestion faisant appel au filtre avancé.

A bientôt

 

[Niconinial]

Re : VBA filtre multicritère différent de

Merci DoubleZero, ton fichier me donne des pistes.

Le filtre avancé a t-il une fonction "compter", à la place de "copier"? j'aimerais compter le nombre de ligne soumis par le filtre.

Niconinial

 

[DoubleZero]

Re : VBA filtre multicritère différent de

Re-bonjour,

...Le filtre avancé a t-il une fonction "compter", à la place de "copier"? j'aimerais compter le nombre de ligne soumis par le filtre...

S'agit-il de compter le nombre de valeurs, en colonne j, sans les EU1, EU3, EUS, EUT ?

Dans l'affirmative, où le résultat doit-il apparaître ? En Msgbox, cellule ?..

A bientôt

 

[joss56]

Re : VBA filtre multicritère différent de

Bonjour,

Un essai avec nb.si.ens

formule à saisir dans la cellule de destination en supposant que les données soient en colonne A :
=nb.si.ens(a:a;"<>" & EU1; a:a;"<>" & EU2) à compléter.

Jocelyn

 

[Niconinial]

Re : VBA filtre multicritère différent de

Re,

Oui c'est bien ça : compter le nombre de valeurs, en colonne j, sans les EU1, EU3, EUS, EUT.
En Msgbox, ça serait parfait !

A+

 

[DoubleZero]

Re : VBA filtre multicritère différent de

Re-bonjour, bonjour, joss56,

Un nouvel essai en pièce jointe.

A bientôt

 

[Niconinial]

Re : VBA filtre multicritère différent de

Bonjour DoubleZero et joss56,

Merci, j'ai pu résoudre mon problème grâce à vos infos.
Bonne fin de journée à bientôt.