Filtrage d'une base par VBA

Version imprimable

12/02/2013, 14h34
setepenre

Filtrage d'une base par VBA
Bonjour à tous,

Je voudrais filtrer une base de données se trouvant dans un onglet d'un classeur Excel.
J'ai utilisé le générateur de macros d'Excel pour voir ce qu'il proposait.
Ci-après la commande que je voudrais adapter :
Code:

1 2 ActiveSheet.Range("$A$1:$AL$32283").AutoFilter Field:=1, _ Criteria1:=Array("CNEDEG", "CNEDSL", "CNETEL"), Operator:=xlFilterValues
.

Mon soucis est de remplacer ce qui est dans la parenthèse du "Array" par une variable contenant les différentes valeurs de filtrage.

Toutes mes tentatives se sont soldées par un échec. Le code ne génère pas d'erreur mais le filtrage ne restitue aucune ligne car les valeurs en question ne sont pas cochées.

Quelqu'un a-t-il une idée de la façon d'opérer ?

Merci d'avance.
12/02/2013, 15h22
COCONUT2

Quel est l'idée du filtrage? masquer des lignes qui ne te concerne pas.

Donc plutot que d'utiliser le filtre automatique, pour quoi ne pas faire une boucle qui va masquer les lignes qui ne contiennent pas tes criteres?
12/02/2013, 15h56
setepenre

Bonjour Coconut2,

Ben justement, c'est ce que j'avais fait au départ ou quelque chose d'approchant.

Le problème c'est que les valeurs que je mets dans les parenthèses sont à choisir parmi une liste de 300 environ. La base représente environ 20.000 lignes. Autant dire que ça rame. A cela il faut ajouter 4 autres clés de filtrage dont deux sont du même tonneau que la première. Quand je lance mon filtrage, j'ai le temps de boire un café (à force, le taux de caféïne dans le sang monte et mon micro est en danger :mouarf:).

C'est pour cela que je cherche à utiliser le filtrage d'Excel.
12/02/2013, 16h20
COCONUT2

Mantenant il faut savoir comment tu récupères les valeurs de filtrage (Listbox dans un userform?)

Tu stockes ces valeurs dans des variables (mavar1, mavar2...)

puis enfin

Code:

Criterial:=Array(mavar1, mavar2, mavar3)

Filtre sous vba

Bonjour,

Tu peux charger la variable qui permet de filtre, avant de la stocker dans ton filtre:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub CommandButton_Click()
 
'Dans un onglet que j'appelle test, je stocke ma variable (tu peux la filtrer et trier avant au cas où tu as des doublons):
 
    Dim myvar(1 To 65000) As Variant
     lastRow = Sheets("test").Range("A65536").End(xlUp).Row
        j = 1
        For i = 2 To lastRow
            myvar(j) = Sheets("test").Cells(i, 1).Value '(1 correspond à ta colonne A)
            j = j + 1
        Next i
 
'Dans le fichier global, j'applique mon filtre:
Sheets("fichier_global").Select
Selection.AutoFilter
 
    Sheets("fichier_global").Range("$A$1:$L$65536").AutoFilter Field:=1, Criteria1:=myvar, Operator:=xlFilterValues
 
End sub