Discussion :

[ericdev67]

Bonjour,

(Ci joint un petit exemple pour mieux voir mon problème)

Voilà,
J'ai 2 feuilles, dans la feuille 2, j'ai toutes mes données. Je crée un filtre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

autofilter

, Mais je n'arrive pas à le mettre dans la feuille 1.

Je m'explique, je souhaite que sur la feuille 1, apparaisse les champs des filtres, je sélectionne les filtres qu'il me faut, et les données "doivent" apparaitre, un peu comme sur la feuille 3 en prenant l'exemple des couleurs.

Une idée ?

Merci
A+

Je précise :

Pour l'instant, je vais sur ma feuille 2, je fais le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Selection.AutoFilter Field:=3, Criteria1:="vert"
Cells.select
Selection.Copy
Sheets("Feuille 1"").select
Cells.Select
ActiveSheet.Paste

:
Je fais mes filtres automatiques sur la feuille 2 (ici exemple couleur), je copie et je colle sur la Feuille 1. ça fonctionne, je peux créer différents filtres, mais je souhaite afficher mes filtres dans la feuille 1, directement et que les résultats s'affichent en dessous....

Merci,
A+

[mondev]

Salut,

J'ai pas compris ce passage :

...un peu comme sur la feuille 3 en prenant l'exemple des couleurs.

La feuille 3 c'est pour quoi faire ?

Sinon pour juste afficher les résultat dans la feuille 1, on peut faire ça sans VBA non ?

[ericdev67]

Merci Mondev,

Je viens de voir que j'ai rien mis dans la feuille 3.....c'était juste un filtre sur la couleur "vert", et donc les données concernées...
J'ai essayé sans code VBA (=liste déroulante de choix, définir nom, etc....), mais le problème, c'est que je n'ai pas les résultats des données ensuite, c'est pourquoi je suis passé en code VBA.

A+

[mondev]

Oui listes déroulantes dans les cellules, ensuite on peut récupérer les données en utilisant la fonction RechercheV

Edit :

Je crois que j'ai compris, en fait tu sais pas combien de données (résultats) il peut y avoir. Est ce que c'est ça ?

Mais les données que tu veux récupérer correspondent à quoi ? de quelle colonne ?

[ericdev67]

Merci mondev,

En fait, il y a à peu près 5000 données, 40 colonnes (j'ai volontairement simplifié mon exemple). Avec 'autofilter', je peux filtrer l'ensemble des données, mais je dois présenter mon projet à des néophites (dont je fais parti), et donc, je dois pouvoir mettre dans la feuille 1, les critères de filtre, et les résultats doivent apparaitre dans la feuille 1. Si mes collègues connaissaient un peu plus Excel, je pourrais utiliser simplement les autoofiltres de la feuille 2, mais autant "simplifier" les choses.....
Pour la fonction "rechercheV", j'y avais pensé, mais je sais que le format (majuscule/minuscule, espace, orthographe,....) ne sera pas respecté, c'est pourquoi je suis parti sur la fonction filtre.

A+

[La Zélie]

Bonsoir,

Si cela peut t'aider voici le code que j'utilise pour copier le résultat d'un filtre sur une feuille dans une autre.
A toi d'adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub CopiePlageFiltreVisible()
Dim Destination As Range
Set Destination = Sheets(2).Range("A2")
 
Dim PlageVisible As Range
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
 
Set PlageVisible = Selection.SpecialCells(xlVisible)
PlageVisible.Copy Destination
 
End Sub