Filtre à partir d'une liste

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

Je suis en difficulté sur une macro.

Je cherche à venir filtrer massivement sur base de plusieurs références en même temps. L'idée est d'éviter de filtrer les données une par une pour optimiser les temps de traitement.

L'idée, c'est de prendre donc ma liste de référence, dans la feuille 1. Je viens stocker les valeurs dans un tableau en vba, et j'applique le filtre sur la feuille 2 sur base des valeurs de mon tableau. Je m'attends donc à ce que le filtre soit fait en une seule fois.

Le problème est que le filtre remonte vide. pourtant unitairement, et quand je le fais à la main, je ne rencontre aucun soucis.

Voici le code que j'utilise. Je vous transmets le fichier également (j'ai simplifié un maximum le fichier pour vous exposer clairement ma problématique)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub test() Application.ScreenUpdating = False s1 = "1" s2 = "2" nbls1 = Sheets(s1).Range("A1000").End(xlUp).Row Sheets(s1).Activate ReDim myArray(nbls1 - 2) For j = 2 To nbls1 myArray(j - 2) = Cells(j, 1).Value Next j Sheets(s2).Activate Range("A1").AutoFilter Field:=1, Criteria1:=myArray, Operator:=xlFilterValues End Sub

Bonjour,

Déclarer le tableau en String
Criteria1:=Array(myArray)
Selectionner la plage en entier pour le filtre: Range("A1:A" & DerLig_S2)

Essayez ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
    Dim s1 As Worksheet, s2 As Worksheet
    Dim nbls1 As Long, DerLig_S2 As Long
 
    Application.ScreenUpdating = False
    Set s1 = Sheets("1")
    Set s2 = Sheets("2")
    nbls1 = s1.Range("A" & Rows.Count).End(xlUp).Row
    s1.Activate
    ReDim myArray(nbls1 - 2) As String
    For j = 2 To nbls1
        myArray(j - 2) = s1.Cells(j, 1)
    Next j
    s2.Activate
    DerLig_S2 = s2.Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("A1:A" & DerLig_S2).AutoFilter Field:=1, Criteria1:=Array(myArray), Operator:=xlFilterValues
    set s1 = nothing
    set s2 = nothing
End Sub

Cdlt

Bonjour,

Je vois que j'ai écopé d'un -1 (Pouce vers le bas), hormis que ça ne résout pas les problèmes, j'aurais aimé connaître ce qui ne va pas, cela pourrait me servir pour la suite et éviter de reproduire les mêmes erreurs (Peut-être l'oubli d'avoir enlevé les "S1.Activate" et "S2.Activate" devenus inutiles)
Le but n'était pas de refaire le code, mais simplement de trouver ce qui l'empêchait d'exécuter le filtre, ce que j'ai fait dans les 3 premières lignes de ma précédente réponse, c'est au demandeur, par la suite de suivre ou pas ces recommandations et de les appliquer à son code. Le code que j'avais déposé n'était là que pour montrer que ça fonctionnait.
Revoici le code complet tel qu'il aurait dû être:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Option Explicit Sub test() Dim s1 As Worksheet, s2 As Worksheet Dim NblS1 As Long, DerLig_S2 As Long Dim j As Long Application.ScreenUpdating = False Set s1 = Sheets("1") Set s2 = Sheets("2") NblS1 = s1.Range("A" & Rows.Count).End(xlUp).Row ReDim MyArray(NblS1 - 2) As String For j = 2 To NblS1 MyArray(j - 2) = s1.Cells(j, 1) Next j DerLig_S2 = s2.Range("A" & Rows.Count).End(xlUp).Row s2.Range("A1:A" & DerLig_S2).AutoFilter Field:=1, Criteria1:=Array(MyArray), Operator:=xlFilterValues Set s1 = Nothing Set s2 = Nothing End Sub
Cdlt

20/09/2020, 10h37
78chris

Bonjour à tous

Le plus rapide est sans doute le filtre avancé https://philippetulliez.developpez.c...dvancedfilter/
20/09/2020, 15h11
ARTURO83

Bonjour 78chris,

Evidemment le filtre avancé est bien plus simple d'utilisation, mais ma réponse concernait son code et plus particulièrement pourquoi il ne fonctionnait pas.

Cdlt
20/09/2020, 16h36
78chris

Re

Citation:

Envoyé par ARTURO83

Bonjour 78chris,

Evidemment le filtre avancé est bien plus simple d'utilisation, mais ma réponse concernait son code et plus particulièrement pourquoi il ne fonctionnait pas.

Cdlt

Ce n'était pas une critique mais une proposition d'autre piste