Passer un tableau dans un filtre en VBA

Version imprimable

19/06/2016, 11h11
Millery

Passer un tableau dans un filtre en VBA

Bonjour,
J'ai dans un classeur Microsoft Office Excel 2007, une feuille contenant une colonne de texte (environ 50 lignes)
Est il possible en VBA de faire un filtre sur une autre feuille de ce classeur en "passant" cette colonne sous forme de tableau?
Merci à vous

Cordialement
19/06/2016, 14h32
casefayere

Bonjour,

Citation:

Est il possible en VBA de faire un filtre sur une autre feuille de ce classeur en "passant" cette colonne sous forme de tableau?

Que cherches-tu exactement ?
filtrer une colonne d'une feuille et copier le résultat sur une colonne vierge d'une autre feuille ?, si oui, qu'appelles-tu "Tableau" ? si c'est une variable tableau, il n'y en a pas besoin,
dans un premier temps, ouvres l'enregistreur de macros, filtres ta colonne, copies et colles le résultat sur ton autre feuille, enlèves le filtre de la 1ère feuille arrêtes la macro, regardes le résultat et publies le sur ton prochain message (entre balises #), je t'aiderai à nettoyer le code
19/06/2016, 17h28
patricktoulon

RE

Bonjour
Je reconnais que la demande n'est pas très claire :oops:
19/06/2016, 20h31
Millery

Merci Dom pour ta réponse.
En fait l'idée c'est de pouvoir , si c'est possible, utiliser dans le code filtre VBA, une variable constituée des éléments de la feuille contenant une colonne de texte
pour éviter d'entrer ces éléments à la main ou par l'enregistreur de macro.
Du coup, je ne sais pas comment faire pour affecter à cette variable (que j'imagine en variable ARRAY) , la colonne concernée et surtout si je peux l'utiliser dans le filtre
Je vois comme avantage, de n'avoir à changer dans mon filtre que le nom de ma variable, si les éléments à trier sont ceux d'une autre colonne par exemple
Si je ne suis pas clair, je reprends mon explication sans problème
Merci

Bonjour patricktoulon,

Je reconnais également que je ne suis pas très clair
Voici reformulée, ma demande initiale et pour exemple
J'ai dans une feuille1 , une colonne qui contient en A1 "ccc", en A2"eee" et en A3 "ffff"
J'ai une autre feuille2 qui contient une colonne avec ces valeurs mais aussi d'autres valeurs
Filtrer cette feuille2 par un filtre "ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, Criteria1:=Array("ccc","eee", "ffff"), Operator:=xlFilterValues"
ca je sais faire.
Mais est il possible de me servir de la colonne de la feuille1 pour remplacer dans le code "Array("ccc","eee", "ffff")" par "Array("variable_de_la_colonne_feuille1")"?
Et ainsi éviter d'entrer les éléments "ccc","eee", "ffff à la main ou par l'enregistreur de macro (car en fait , j'ai environ 30 lignes dans la feuille1)
Merci et j'espère vraiment avoir été plus clair
Patrick
19/06/2016, 21h02
patricktoulon

re

non pas vraiment du moins je crois comprendre que tu veux alimenter une colonne d'une des deux feuille avec les manquants présent dans une autre feuille
c'est bien ca ?
19/06/2016, 23h32
Millery

Merci Patrick
En fait j'ai une colonne dans une feuille dans laquelle se trouvent des données; A1 "ccc", en A2"eee" et en A3 "ffff"
Peut on créer un code qui dirait en vba: met dans mavariable le contenu de A1;A2,A3
et que je pourrai inclure dans ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, Criteria1:=Array("mavariable"), Operator:=xlFilterValues" pour filtrer une autre feuille?
Bien cordialement

Bonjour.

Un exemple avec le filtre avancé:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Filtre_Avance()
 
'Définir la feuille à filter
Set f = Worksheets("Feuil2")
 
'Définir le champ à filter
Set r = f.Range("C3:D100")
 
'Définir la feuille des critères
Set FeuilleCriteres = Sheets("Feuil1")
 
'Définir le champ des critères
Set Criteres = FeuilleCriteres.Range("A1:X40")
 
'Définir la colonne des critères
colonne = 2
Set Criteria = Criteres.Columns(colonne)
 
'Ne garder que les premieres cellules non vides
Set rr = Nothing
For i = 1 To Criteria.Rows.Count
 
 Set c = Criteria.Cells(i)
 
 If c.Value = "" Then
  Exit For
 Else
 
  If rr Is Nothing Then
    Set rr = c
  Else
    Set rr = Union(rr, c)
  End If
 End If
 
Next
 
r.AutoFilter
 
r.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=rr, Unique:=False
 
r.Parent.Activate
r.Select
 
End Sub

20/06/2016, 01h29
Marc-L

Bonjour !

Citation:

Envoyé par Millery

Peut on créer un code qui dirait en vba: met dans mavariable le contenu de A1;A2,A3

Oui via le B-A-BA d'Excel, les fonctions de feuille de calculs :

Code:

[A1:A5].AutoFilter 1, Feuil1.Evaluate("INDEX(TRANSPOSE(A1:B3),1)"), xlFilterValues

_________________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

1 pièce(s) jointe(s)

hello,
en équivalent en VBA à ce que Marc-L a écrit tu peux faire comme ceci par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub FiltreParPlageCrit() Dim vCrit As Variant Dim PlageCrit As Range Dim PlageFruits As Range Set PlageFruits = Sheets("Feuil2").Range("$A$1:$A10") Set PlageCrit = Sheets("Feuil1").Range("$A2:$A4") vCrit = PlageCrit.Value PlageFruits.AutoFilter _ Field:=1, _ Criteria1:=Application.Transpose(vCrit), _ Operator:=xlFilterValues End Sub
sur la Feuille 1 de A2 à A4 j'ai la liste à utiliser pour le filtre (dans mon exemple il y a pêche,poire,pomme).
si la liste était disposée en horizontale (ex B1,C1,D1) il n'y aurait pas besoin de faire le Application.Transpose ( ex : Criteria1:=vCrit)

Pièce jointe 213349

Ami calmant, J.P

20/06/2016, 10h58
Millery

Merci beaucoup JP je vais m'en inspirer pour intégrer cela dans mon fichier
Bien cordialement
Patrick

Merci Marc L je garde aussi cette solution
Bien cordialement

Patrick

Merci Docmarti pour cette réponse claire que je vais mettre en application dans mon VBA
Bien cordialement
Patrick
20/06/2016, 10h59
Millery

Merci Patrick
Je vais mettre en application les nombreuses réponses reçues
Bien cordialement
Patrick

Citation:

Envoyé par patricktoulon

non pas vraiment du moins je crois comprendre que tu veux alimenter une colonne d'une des deux feuille avec les manquants présent dans une autre feuille
c'est bien ca ?
20/06/2016, 11h01
Millery

Merci Casefayre
Je vais pouvoir essayer toutes les solutions que l'on me propose c'est cool
Cordialement
Patrick

Citation:

Envoyé par casefayere

Bonjour,

Que cherches-tu exactement ?
filtrer une colonne d'une feuille et copier le résultat sur une colonne vierge d'une autre feuille ?, si oui, qu'appelles-tu "Tableau" ? si c'est une variable tableau, il n'y en a pas besoin,
dans un premier temps, ouvres l'enregistreur de macros, filtres ta colonne, copies et colles le résultat sur ton autre feuille, enlèves le filtre de la 1ère feuille arrêtes la macro, regardes le résultat et publies le sur ton prochain message (entre balises #), je t'aiderai à nettoyer le code