Tri sur une colonne avec un critère Array

Version imprimable

Bonjour à tous,

Je cherche un moyen de filtrer un tableau Excel à l'aide d'un Array. J'ai essayé une multitude de solutions mais impossible de trouver la bonne !
Le but de ce filtre est de filtrer toutes les lignes NE correspondant PAS au array.

Pour le moment j'ai essayé ça : (Tout le code n'y est pas, mais toutes les variables sont déclarées)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 option explicit sub Tri Dim C1 As String, C2 As String, C3 As String, C4 As String, C5 As String, C6 As String Dim C7 As String, C8 As String, C9 As String, C10 As String, C11 As String, C12 As String Dim C13 As String, C14 As String C1 = WsPrev.Range("A5") C2 = WsPrev.Range("A6") C3 = WsPrev.Range("A7") C4 = WsPrev.Range("A8") C5 = WsPrev.Range("A9") C6 = WsPrev.Range("A10") C7 = WsPrev.Range("A11") C8 = WsPrev.Range("A12") C9 = WsPrev.Range("A13") C10 = WsPrev.Range("A14") C11 = WsPrev.Range("A15") C12 = WsPrev.Range("A16") C13 = WsPrev.Range("A17") C14 = WsPrev.Range("A18") LigneBase = WsBase.Cells(Rows.Count, 1).End(xlUp).Row WsBase.Range("A11:A" & LigneBase).AutoFilter field:=23, Criteria1:="<>" & Array(C1, C2, C3, C4, C5, C6, C7, C8, C9, C10, C11, C12, C13, C14), Operator:=xlAnd
Mais malheureusement, erreur d'exécution 13 : Incompatibilité de type

Si vous voyez l'erreur, n'hésitez plus !

1 pièce(s) jointe(s)

bonjour
c'est le travail de philipe tuliziez

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub FiltreInverseListe()
  Set f1 = Sheets("feuil1")
   Set f3 = Sheets("feuil2")
  Set d = CreateObject("scripting.dictionary")
  d.CompareMode = vbTextCompare
 
  Dim liste As New Collection
   Dim i As Integer
   On Error Resume Next
   For Each cel In f3.Range("A2:A" & [A65000].End(xlUp).Row)
    If Cells(cel.Row, 2) = "" Then
    liste.Add cel.Value, CStr(cel.Value)
    End If
   Next cel
  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("A2:A" & f2.[A65000].End(xlUp).Row)
   If Not d.exists(c.Value) Then d2(c.Value) = ""
  Next c
  ActiveSheet.Range("$A$1:$A$10").AutoFilter Field:=1, Criteria1:=d2.keys, Operator:=xlFilterValues
End Sub

21/02/2019, 12h04
Trystan441

Bonjour Bennasr,

Je t'avouerai que la partie Dictionnary je n'y connais absolument rien du tout mais ça à l'air plutôt puissant !

Merci pour ta réponse ! Je vais me pencher là dessus

Par contre en attendant que je maîtrise ça, il n'y aurait pas un autre moyen de répondre à mon petit souci ?

2 pièce(s) jointe(s)

Bonjour,

Cf https://www.developpez.net/forums/d1...e-d-exclusion/

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

Faire une recherche Google: excel vba filtre inverse array

Boisgontier