Recuperer Date auto

**lowno** · 29/10/2013, 12h17

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 !!

Invité · 29/10/2013, 12h31

Code :

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

vntCrit1 = ">" & Date + 1

**mercatog** · 29/10/2013, 12h39

Code :

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

1
2
3
4
5
6
Sub Filtr()
Dim NoCol As Integer
 
NoCol = 1
Worksheets("Feuil1").Columns(NoCol).AutoFilter Field:=1, Criteria1:=">=" & CLng(Date) + 1, Operator:=xlAnd, Criteria2:="<" & CLng(Date) + 3
End Sub

**lowno** · 29/10/2013, 13h16

Merci pour votre aide

mercatog, c'est exactement ce qu'il me faut, mais comment filter les dates à +1, +2, +3 jusqu'a +7.

La je ne filtre qu'a +3, non ?

rdurupt, çà ne fonctionne pas avec date + 1 (aucun filtre, j'y avais pensé mais...)

merci, merci, merci.

Invité · 29/10/2013, 13h35

tu peux utiliser un filtre élaboré.
il vas te copier les données sur la feuille de ton choix filtré sur tes date.
http://www.developpez.net/forums/d13...s/#post7481714