Discussion :

[sgh.chafaa]

Je cherche de faire le trie automatisé de la date avec un Macro VBA, le critère est que la date à choisir doit être la date en cour du système
donc c'est un paramètre de date variable.

mon code actuel pour une date fixe (10/31/2017) est comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub filtedate1()
    ActiveSheet.Range("$C$6:$AI$1283").AutoFilter Field:=4, Criteria1:=Array("="), Operator:=xlFilterValues, Criteria2:=Array(2, "10/31/2017")
End Sub

J'ai chercher de changer la date "10/31/2017" par les paramètres suivants :

Date
Aujourd'hui
AUJOURDHUI()
LDate
"Date"
"Aujourd'hui()"
"LDate"

Aussi j'ai essayé d'attribuer la resultat de la fonction AUJOURDHUI() à une cellule E1 que j'ai nommé (datedaujourdhui) puis je l'ai mis parmis les variable de syntexe : Criteria2:=Array(2,datedaujourdhui)

Mais toujours erreur de Debogage, y a -t-il une solution s'il vous plait ?

[sgh.chafaa]

Merci à monsieur JEAN-ERIC



CODE : TOUT SÉLECTIONNER

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub filtedate1()
    ActiveSheet.Range("$C$6:$AI$1283").AutoFilter _
            Field:=4, _
            Criteria1:=xlFilterToday, _
            Operator:=xlFilterDynamic
End Sub