code pour obtenir une date

bonjour a tous

j'utilise un code pour mettre une date afin de supprimer des ligne en fonction de leur date de naissance

Code:

---

1 2 3 4 5 6 7 8

Sub an() Dim finperiode As Date 'methode pour supprimer les trop vieux finperiode = InputBox("date de naissance maximal") ' pour saisir le 31/12 de l'année avant la dernière année For i = Range("b65536").End(xlUp).Row To 2 Step -1 If Range("e" & i).Value < finperiode Then Rows(i).Delete Next i

---

je rentre par exemple 31/12/1990
mais je voudrais qu'une autre variable devienne l'année tapé + 8 ans
soit dans cette exemple 31/12/1999

comment faire ?

bonjour bosk1000,

Citation:

---

je rentre par exemple 31/12/1990
mais je voudrais qu'une autre variable devienne l'année tapé + 8 ans
soit dans cette exemple 31/12/1999

---

si la date inscrit est valide,

Code:

---

1 2	finperiode = InputBox("date de naissance maximal") finperiodePlus8 = DateSerial(Year(finperiode) + 8, Month(finperiode), Day(finperiode))

---

merci je teste
par contre j'ai dit une boulette
1990 == 1999
c'est + 9 ans pas 8
désolé

ça fonctionne
merci