Recuperer Date auto

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:

---

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

Code:

---

vntCrit1 = ">" & Date + 1

---

Code:

---

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

---

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.

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

merci beaucoup, tout fonctione

j'ai modifié

Code:

---

Criteria2:="<" & CLng(Date) + 3

---

en

Code:

---

Criteria2:="<" & CLng(Date) + 8

---

je filte de >= à 1 à < 8

OK, pour ta méthode rdurupt. Et merci mercatog !!!!