filtre automatique

[pegaze76france]

bonjour,

je fais dans un premier temps un filtre automatique en VBA
Sheets("feuille habilitation").Range("$A$5:$H$3000").AutoFilter Field:=7, _
Criteria1:=Arr1, Operator:=xlFilterValues

ou Arr1 est un array. Le filtre fonctionne.

Dans un second temps je voudrais faire le meme type de filtre mais le critere est toutes les valeurs sauf celles de contenu dans mon array.

j'ai essayé criteria1:="<> Arr1" et criteria1:="<>" & Arr1
mais ca fonnctionne pas

Avez vous une piste pour m'aider

Merci

 

[pegaze76france]

Re : filtre automatique

bon je vois que je n'inspire pas beaucoup de monde.....

 

[JNP]

Re : filtre automatique

Bonour Pegaze76france 🙂,
Ne soit pas si pressé l'ami, au bout de 24 h, peut-être, mais encore 🙄...
J'ai l'impression, mais je me trompe peut-être, que tu es sous 2007, car je ne suis pas sûr que 2003 sache utiliser un Array dans un Filter 😱...
Si Jean-marie passe par là, c'est un spécialiste des filtres, il pourra certainement te renseigner 😉.
D'après l'aide 2007, je n'ai pas vu de propriété permettant la lecture des choix de Criteria1 (il semblerait qu'il ne renvoit que la première valeur sélectionnée en lecture seule).
Donc un début de piste serait (en passant par exemple par un Dico cher à JB) de récupérer la liste des critères possible, puis d'ôter à ces critères l'Array que tu veux extraire, et d'envoyer l'Array résultante.
Bon courage 😎

 

[pegaze76france]

Re : filtre automatique

Merci pour cette reponse.

Je vais essaye mais le traitement risque d'etre un peu plus long.

 

[Staple1600]

Re : filtre automatique

Bonjour à tous


On m'a appelé ? (JNP 😉 salute )

J'arrive 😉

Pegaze76France: (ca tombe bien je suis en Seine-Maritime ce week-end 😉 )

Peux-tu, stp, joindre ton code VBA complet que l'on puisse tester en direct live ?

 

[pegaze76france]

Re : filtre automatique

Merci pour votre aide.
En fait j'ai teste applique la methode de JNP et ça fonctionne mais en faisant mes tests je me suis aperçu que ça ne correspondait pas a mes besoins.

Pour etre plus clair voici mes besoins

J'ai un tableau A de 40 colonnes et n lignes
je filtre dans un premier temps mon tableau sur n colonnes prealablement selectionne dans une liste box multiple


Ensuite je copie toute les donnees filtrees ( 1 par 1) dans un tableau tampon a 3 colonnes et je filtre ensuite les 2 dernieres colones et je mes le resultat dans un liste box


Je sais c'est pas tres academique comme methode mais je ne sais pas faire de listebox avec plusieurs colonnes!!!!

 

[Staple1600]

Re : filtre automatique

Re



Et que contient Arr1 ?

Tu ne veux pas poster ton code VBA 😕 ou mieux un fichier exemple
( sans données confidentielles, zippé -> clic-droit sur le le fichier Excel -> Envoyer vers Dossiers compressés) que tu postes sur XLD, en éditant ton message -> Gérer les pièces jointes

 

[pegaze76france]

Re : filtre automatique

voici mon code avec le arr1

Dim tmp As Variant
Dim Arr1(40) As Variant
Sheets("recup selection").Range("a1:a50").Clear
Sheets("recup selection").Select
Range("a1").Select
For lItem = 0 To Maliste.ListCount - 1

If Maliste.Selected(lItem) = True Then
ActiveCell.Value = Maliste.List(lItem)
ActiveCell.Offset(1, 0).Select
End If
Next
For i = 1 To 40
Arr1(i) = Range("A" & i).Value
Next

Sheets("feuille habilitation").Range("$A$5:$H$3000").AutoFilter Field:=7, _
Criteria1:=Arr1, _
Operator:=xlFilterValues
Sheets("feuille habilitation").Range("$A$5:$H$3000").AutoFilter Field:=8, _
Criteria1:="<>", _
Operator:=xlFilterValues
Call copie_coller