P
Pierre
Guest
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
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