Discussion :

[mezvin]

Bonjour,

J'ai besoin d'appliquer un filtre Excel pour n'afficher que les lignes dont la colonne C ne contient pas les valeurs suivantes :

/home
/calendar
/documents
/wiki
/news

J'ai mis en place le filtre suivant qui fonctionne bien pour ne conserver QUE les lignes contenant ces valeurs dans la colonne C.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub FiltreURL()
ActiveSheet.Range("C2").AutoFilter Field:=3, Criteria1:=Array( _
       "/home", "/calendar", "/documents", "/wiki", _
       "/news"), Operator:=xlOr
End Sub

À présent il faut que le filtre fasse l'inverse. Il ne faut afficher QUE les lignes NE contenant PAS ces valeurs dans la colonne C.

J'ai essayé plusieurs solutions sans succès.

Pourriez-vous m'aider ?

[MarcelG]

Bonjour,

Sans doute les filtres avancés de l'ami Philippe.

Filtres avancés/

[mezvin]

Merci mais je ne trouve pas réponse à mon problème.
Il me faut un filtre d'exclusion.
Actuellement mon filtre fonctionne, mais il conserve les lignes des données listées.
Je souhaite qu'il exclue les lignes de valeurs listées.

[MarcelG]

Salut,

Il te suffit de répéter dans ta zone de critères l'en-tête de colonne autant de fois que de critère à exclure et à placer "<>" devant chacun des critères.
Sauf erreur, c'est bien ce qui est écrit dans le tutoriel de Philippe.

Je viens de tester.

Bien entendu, tu peux créer et alimenter un 2ème Array des valeurs qui ne sont pas comprises dans le 1er, sans doublon.
(notions de tableau et dictionnaire)
Le filtre s'effectuerait sur ce 2ème Array.

Mais ce serait plus compliqué.

Personnellement, et sans flagornerie aucune, je privilégierais la 1ère solution.

[boisgontierjacques]

Bonsoir,

3 exemples en PJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub FiltreInverseListe()
  Set f1 = Sheets("feuil1")
  Set d = CreateObject("scripting.dictionary")
  d.CompareMode = vbTextCompare
  liste = Array("paris", "lyon", "bordeaux")            ' Liste à ne pas sélectionner
  For Each c In liste: d(c) = "": Next c
  Set f2 = Sheets("feuil1")
  Set d2 = CreateObject("scripting.dictionary")     ' liste complémentaire
  d2.CompareMode = vbTextCompare
  For Each c In f2.Range("B2:B" & f2.[B65000].End(xlUp).Row)
   If Not d.exists(c.Value) Then d2(c.Value) = ""
  Next c
  ActiveSheet.Range("$A$1:$B$100").AutoFilter Field:=2, Criteria1:=d2.keys, Operator:=xlFilterValues
End Sub

Boisgontier

[Philippe Tulliez]

Bonjour,

Merci mais je ne trouve pas réponse à mon problème.
Il me faut un filtre d'exclusion.
Actuellement mon filtre fonctionne, mais il conserve les lignes des données listées.
Je souhaite qu'il exclue les lignes de valeurs listées.

Le filtre avancé d'excel pour autant que tes données soient bien structurées selon les règles permet de filtrer sur place ou d'exporter en fonction d'autant de critères que tu veux.
Il suffit simplement de définir tes critères et tu peux également utiliser un critère calculé en créant une formule qui renvoie VRAI ou FAUX tout ce qui est VRAI est filtré ou exporté

[mezvin]

Bonsoir,

3 exemples en PJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub FiltreInverseListe()
  Set f1 = Sheets("feuil1")
  Set d = CreateObject("scripting.dictionary")
  d.CompareMode = vbTextCompare
  liste = Array("paris", "lyon", "bordeaux")            ' Liste à ne pas sélectionner
  For Each c In liste: d(c) = "": Next c
  Set f2 = Sheets("feuil1")
  Set d2 = CreateObject("scripting.dictionary")     ' liste complémentaire
  d2.CompareMode = vbTextCompare
  For Each c In f2.Range("B2:B" & f2.[B65000].End(xlUp).Row)
   If Not d.exists(c.Value) Then d2(c.Value) = ""
  Next c
  ActiveSheet.Range("$A$1:$B$100").AutoFilter Field:=2, Criteria1:=d2.keys, Operator:=xlFilterValues
End Sub

Boisgontier

Merci pour ce retour.
Ta version "Copie de FiltreInverseListe.xlsm" serait celle qui répond le plus à mon besoin.
J'ai fait plusieurs essais, mais je ne parviens pas à aboutir au bon résultat final.
En fait, j'aurai besoin qu'au lieu de se baser sur une liste de valeurs à exclure dans la feuil1, cette liste soit dans la feuil2.
Et j'aurai que le test des valeurs présentes se fasse sur la colonne C de la feuil1 et non la colonne B

Mes ajustements dans ce sens de ton fichier n'ont pas fonctionné. A chaque fois ça me vide toute les données de ma feuil1