Filtre entre deux dates

Bonjour,

J'essaie depuis maintenant plus de 5h de trouver comment avoir un bouton à appuyer qui me permette de filtrer une liste de date entre 2 bornes de dates. Les données proviennent d'un fichier access, je me demande si le problème ne viendrait pas de là...

Voici un fichier joint qui devrait être clair.

En vous remerciant! Je désespère.

Bonsoir à tous,

Tu mets les bornes date en E1:E2

J'ai supprimé des lignes pour que çà passe ici en .xls

Amicalement

Claude

Bonjour

Salut Claude

Ou, filter sur place

Cordialement

La solution du copie du resultat me convien mieux, mais lorsque j'essaie de placer ca dans une autre fueille (en remplacant les a1 par des b1, etc.) Le résultat ne fonctionne plus.... Serait-il possible de m'expliquer comment manipuler ce code? Par exemple que faut-il rajouter si je veux qu'on puisse clicker sur le bouton Filtrer mais à partir d'un autre onglet? Ou par exemple ajouter un critère (les initiales de l'agent)?

Merci beaucoup!

-- 20 Juil 2010, 16:33 --

J'ai réussi à rajouter une contrainte en ajoutant simplement une virgule :

Range("o2") = "=and(a2>=$f$1,a2<$f$2,c2=$f$4)"

Cependant, tout simplement impossible de prendre en compte 2 colonnes au lieu de 3... Le résultat n'affiche que les 2 colonnes au lieu des 3....

Pour infos, voici ma macro :

Sub Filtre()

''Macros par Claude Dubois pour "dupox" Excel-Pratique le 19/07/10

Range("o2") = "=and(a2>=$f$1,a2<$f$2)" 'critère

Range("a1:c" & [a65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _

Range("o1:o2"), CopyToRange:=Range("H1:i1"), Unique:=False

Range("o2").ClearContents

End Sub

En changeant les o2 par des o3 et en remplacant i1 par j1, cela ne fonctionne pas.

-- 20 Juil 2010, 16:40 --

Bonsoir,

Envoie le fichier, pas besoin de toutes les lignes

Claude

Voila, j'aimerais, en gardant la macro filtre, que la 3eme colonne apparaisse dans le résultat (et si possible, m'expliquer comment faire si je veux rajouter des colonnes).

Merci infiniment.

Bonjour,

il te suffit de prendre en compte la colonne "C" en modifiant le code

ajouter l'en-tête "Quantité" en colonne "i"

Sub Filtre()
''Macros par Claude Dubois pour "dupox" Excel-Pratique le 19/07/10
    Range("o2") = "=and(a2>=$e$1,a2<$e$2)" 'critère
    Range("a1:c" & [a65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Range("o1:o2"), CopyToRange:=Range("g1:i1"), Unique:=False
    Range("o2").ClearContents
End Sub

Maintenant si tu veux ajouter d'autres colonnes,

place les données en ligne 5 (sans toucher aux critères) , décale vers la droite les résultats et adapte

le code en conséquence.

Le mieux serait de filtrer sur place ou extraire sur une autre feuille.

Bonne journée

Claude

Super, un énorme merci, votre aide a été précieuse!

Une toute dernier question, si je rajoute un critère tout simple tel que :

a2=m4. Ou M4 est du texte.

Sous excel, je connaissais la formule"*Carl*" qui permettait par exemple de trouver Carl mais aussi Carlos. Comment intégrer ces étoiles dans mon critère? Est-ce possible?

J'ai testé *m4* cela ne fonctionne malheureusement pas.

En vous remerciant.

Bonsoir,

Chaque cas est particulier, il n'y a pas de macro "passe-partout"

Sur ces 2 fichiers exemples, tu verras pas mal de possibilités de filtre.

Amicalement

Claude

Ces formules sont très intéressante, mais je n'y trouve pas comment intégrer une recherche par mot clé (à l'image de la recherche Acteur) et non, par terme entier. Aussi, cela doit s'inscrire dans un critère, (a2=M5) ce qui n'est pas évident. Est-il possible dajouter une sorte de (a2=*M5*).text quelque chose comme ca?

En vous remerciant,

Bonjour,

Je t'ai donné tous les éléments, maintenant à toi de composer,

si tu n'y arrive pas, envoie un fichier en indiquant ce que tu veux filtrer

(une centaine de lignes suffit)

A noter que tu peux faire plusieurs macros avec boutons et critères différents.

Amicalement

Claude