La Macro du mois.

[WDAndCo]

[Résolu] La Macro du mois.

Bonjour le Forum

Voici une Macro qui me sort que certaines ligne en fonction d'une date au format "MM".

Sub Afairedanslemois()
Call Affiche_Tous
Selection.AutoFilter Field:+17, Criteria1:="<=04", Operator:=x1And
End Sub

Ma question comment rendre la partie derrière "Criteria1:=" automatique avec Aujourdhui().

Du genre Aujourdhui()=Mois soit "03" donc en lieu et place de "<=04" il pourrait y avoir <=mois+1 soit "04" ou <mois+2 soit "05"

D'avance merci
Dominique

 

[Gorfael]

Re : La Macro du mois.

Salut WDAndCo et le forum

Sub Afairedanslemois()
Call Affiche_Tous
Selection.AutoFilter Field:17, Criteria1:="<=" & month(date)+1, Operator:=x1And
End Sub

A+

 

[Pierrot93]

Re : La Macro du mois.

Bonsoir Dominique,

peut être comme ceci, si j'ai bien compris :

Criteria1:="<=" & Month(Date)+1

bonne soirée
@+

 

[WDAndCo]

Re : La Macro du mois.

Merci Gorfael et Pierrot93,

Pour les réponses, mais juste une question :
Month(Date)+1 donne bien "04" et non "4" ?

 

[Roland_M]

Re : La Macro du mois.

bonsoir,

c'est simple pour le voir : MsgBox Month(Date) + 1

 

[Gorfael]

Re : La Macro du mois.

Salut WDAndCo et le forum
Format(Month(Date)+1,"00") donnera 04, mais ce n'est pas nécessaire normalement.
A+

 

[WDAndCo]

Re : La Macro du mois.

Merci à tous !