Filtre par macro

[Pierre]

Bonjour au forum.
Voilà, j'ai une macro qui m'insère automatiquement des données. Sur ces données, notamment sur les dates, je souhaite qu'en cliquant sur un bouton la boite de dialogue filtre critère s'ouvre. J'ai bien un code que je joins, mais il ne marche pas. Au secours, j'y perds mon excel!!! Merci à tous ceux qui m'apporteront leur aide. :silly:
Sub EditerPardate()
Sheets('OPERATION').Select
mavaleurA = InputBox(Prompt:='Taper le premier jour du mois souhaité. Ex : 01/01/06.')
mavaleurB = InputBox(Prompt:='Taper le dernier jour du mois souhaité. Ex : 31/01/06.')
mavaleurA = Format(mavaleurA, 'dd/mm/yy')
mavaleurB = Format(mavaleurB, 'dd/mm/yy')
Selection.AutoFilter Field:=2, Criteria1:='>=mavaleurA', Operator:=xlAnd _
, Criteria2:='<=mavaleurB'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=2
End Sub

 

[Jacky]

Bonjour

déjà une erreur,

Selection.AutoFilter Field:=2, Criteria1:='>=mavaleurA', Operator:=xlAnd _
, Criteria2:='=mavaleurA
Il te faut écrire '>=' & mavaleurA

de m^me pour la suite

Bon courage

 

[jammy17]

POUR TRAITER CE GENRE DE PROBLEME IL VAUT MIEUX OUBLIER LES FILTRE AUTOMATIQUES ET PASSER PAR UN CODE VBA BEAUCOUP PLUS EFFICACE,
JOINT UN FICHIER POUR VOIR CE QU4IL EST POSSIBLE DE FAIRE...

 

[Pierre]

Merci Jacky, Jammy17.
Bien vu l'erreur, je ne connaissais pas le & ; à quoi correspond-il ?
En ce qui concerne le filtre par VBA, je ne connais pas les codes, je passe par l'enregistreur ; je vais tacher de joindre mon fichier, mais c'est pas gagné ; en tout cas merci beaucoup pour votre aide. Jammy, ce que je souhaite faire c'est trier soit par date soit par type d'achat.

 

[jammy17]

envoi ton fichier et j'essayerai de te donner le code correspondant a tes besoins

YA PAS DE PROBLEME SUR EXCELDOWNLOADS

crois moi....

 

[Pierre]

Salut Jammy. Merci d'avance ; voici mon fichier. A bientôt.

 

[jammy17]

la fichier n'est pas passé reesaye et je verrais ce que jpeux faire lol