Encore ces maudites dates !

[WDAndCo]

Bonjour le Forum
Comment faire pour que cette Macro fonctionne ?

Private Sub CommandButton1_Click()
Tous 'Libere tous les filtres
AUnMois = Aujourdhui() + (365.25/12)
Selection.AutoFilter Field:=11, Criteria1:=">=" AUnMois, Operator:= _
        xlAndTous
UserForm1.Hide
End Sub

D'avance merci.
Dominique

 

[JBARBE]

Re : Encore ces maudites dates !

Bonjour à tous,

cette ligne pose probléme :

AUnMois = Aujourdhui() + (365.25/12)

A essayer si vous voulez une année supplémentaire:

AUnMois = DateSerial(Year(Date) + 1, Month(Date), Day(Date))

bonne journée

 

[WDAndCo]

Re : Encore ces maudites dates !

Bonjour le Forum et JBARBE

Private Sub CommandButton1_Click()
Tous
Selection.AutoFilter Field:=11, Criteria1:="<=" & DateSerial(Year(Date), Month(Date) + 1, Day(Date)), _
        Operator:=xlAnd
UserForm1.Hide
End Sub

Toutes les lignes sont filtré alors que certaine doivent être présentée !
Alors que j'ai bien "inferieur ou egale à 30/10/2013" dans le filtre présonnalisé

 

[phlaurent55]

Re : Encore ces maudites dates !

Bonjour à tous,

pour le mois précédent,

Criteria1:=">=" & DateSerial(Year(Date), Month(Date) - 1, Day(Date)),.................

à+
Philippe

 

[WDAndCo]

Re : Encore ces maudites dates !

Bonjour le Forum

J'ai trouvé : il faut modifier l'ordre du jour et mois, mais je ne comprends pas pourquoi, mais cela fonctionne.

Private Sub CommandButton1_Click()
Tous
Selection.AutoFilter Field:=11, Criteria1:="<=" & DateSerial(Year(Date), Day(Date), Month(Date) + 1), _
        Operator:=xlAnd
UserForm1.Hide
End Sub

Encore merci
Dominique

 

[Pierrot93]

Re : Encore ces maudites dates !

Bonjour,

A mon avis tu risques d'avoir un souci en inversant les arguments dans "dateserial".... test peut être ceci :

Dim madate As Date
madate = Date + 15
MsgBox DateSerial(Year(madate), Day(madate), Month(madate) + 1)

préférable d'utiliser un format....

Format(DateSerial(Year(Date), Month(Date) + 1, Day(Date)), "mm/dd/yyyy")

 

[phlaurent55]

Re : Encore ces maudites dates !

Re-bonjour à tous,

je pense que la question posée manque de précision

S'agit-il de filtrer les 30 ou 31 derniers jours ou filtrer le mois précédent

dans ce cas:

   Selection.AutoFilter Field:=11, Criteria1:= _
        xlFilterLastMonth, Operator:=xlFilterDynamic

à+
Philippe