Bonsoir,
le code ci dessous ne fontionne pas?
je ne comprend pas?
Merci pour l'aide.
le code ci dessous ne fontionne pas?
je ne comprend pas?
Code:
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.