Bonjour à tous ,

je viens une fois de plus vers vous car je bloque sur un petit truc :

Je souhaite filtrer automatiquement les dates à j+1, +2, +3, +4, +5, +6 et +7 par rapport à la date du jour.

Mais une partie du code bloque : /

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub filtr()
Dim lngNoCol As Long
Dim strFormatbase As String
Dim vntCrit1 As String
Dim vntCrit2 As String
 
lngNoCol = 1 '
vntCrit1 = ">" & CDec(CDate("date +1"))
vntCrit2 = ">" & CDec(CDate("date +2"))
strFormatbase = Cells(2, 1).NumberFormat
Columns(lngNoCol).NumberFormat = "General" '
Selection.AutoFilter Field:=lngNoCol, Criteria1:=vntCrit1, Operator:=xlAnd, Criteria2:=vntCrit2
Columns(lngNoCol).NumberFormat = strFormatbase
End Sub
je présume que cela viens de mes critères .... mais je ne trouve pas de solution !

Merci à vous !!