K
KRAEMER
Guest
Je désire faire par une instruction macro un tri par filtre sur un champ comportant des dates.
Pour cela j'ai mis en cellule G2 la date du jour en format " Standard " ( Ex: 29/06/04 = 38167 )
et crée la macro ci-dessous
Sub Macro1()
Dim MaVar As Variant
MaVar = Range("G2").Value
Selection.AutoFilter Field:=7, Criteria1:=MaVar, Operator:= xlAnd
End Sub
La macro fonctionne mais uniquement avec le signe "=" .Je voudrais extraire toute les dates supérieure à la date du jour , j'ai donc mis le signe ">" à la place du "=" et là la macro ne fonctionne
plus
Quelqu'un a t'il une solution à mon problème ?
En vous remerciant par avance
Pour cela j'ai mis en cellule G2 la date du jour en format " Standard " ( Ex: 29/06/04 = 38167 )
et crée la macro ci-dessous
Sub Macro1()
Dim MaVar As Variant
MaVar = Range("G2").Value
Selection.AutoFilter Field:=7, Criteria1:=MaVar, Operator:= xlAnd
End Sub
La macro fonctionne mais uniquement avec le signe "=" .Je voudrais extraire toute les dates supérieure à la date du jour , j'ai donc mis le signe ">" à la place du "=" et là la macro ne fonctionne
plus
Quelqu'un a t'il une solution à mon problème ?
En vous remerciant par avance