Fonction day

[F2T]

Bonsoir,

le code ci dessous ne fontionne pas?

je ne comprend pas?

If day(Date + 1) < 10 Then

    ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=1, Criteria1:=Format(Date + 1, "ddd mmm d")
    
    ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=6, Criteria1:="=High", _
        Operator:=xlOr, Criteria2:="=Medium"

        Else
  
ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=1, Criteria1:=Format(Date + 1, "ddd mmm dd")
    
    ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=6, Criteria1:="=High", _
        Operator:=xlOr, Criteria2:="=Medium"


End If

Merci pour l'aide.

 

[Roland_M]

Re : Fonction day

bonsoir,

qu'est-ce qu'y ne fonctionne pas ?
Day(Date + 1) ' < ceci est correcte !
alors quoi ?

 

[F2T]

Re : Fonction day

c'est ce que je pense aussi...

mais me message d'erreur suivant apparait:

"wrong number of arguments or invalid property assigment."

??

 

[Modeste geedee]

Re : Fonction day

Bonsour®

Date est un mot clé : instruction ou fonction et n'est pas typée en tant que variable.
il est hasardeux de l'utiliser comme variable, cela peut modifier la date systeme de manière qu'il soit parfois difficile de comprendre comment cela est arrivé

l'utilisation correcte serait :

Dim LaDate as Long
LaDate = Date
If day(LaDate + 1) < 10 Then
....

 

[Roland_M]

Re : Fonction day

re

salut Modeste tu as raison mais dans le test en question il n'y a pas modification possible de la date !
et ça ne changera rien à son problème !? si toutefois ça vient de là !?
en adaptant à son code !

Dim LaDate As Long
LaDate = Date
If Day(LaDate + 1) < 10 Then F$ = "ddd mmm d" Else F$ = "ddd mmm dd"
ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=1, Criteria1:=Format(LaDate + 1, F$)
ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=6, Criteria1:="=High", Operator:=xlOr, Criteria2:="=Medium"

 

[F2T]

Re : Fonction day

Meme probleme avec ce procédé, si quelqu'un a une autre idée. Je suis preneur car embété.

Merci, Modeste et Roland de vous être penché sur le probleme.....

 

[Pierrot93]

Re : Fonction day

Bonjour à tous,

à tout hasard, regarde dans les références si il n'y en a pas une de topé "MANQUANTE", si c'est le cas décoche la enregistre et ferme ton fichier... Vérifie également que la référence "visual basic for applications" soit bien cochée... Dans l'éditeur vba => barre de menu => références.

bonne journée
@+