Discussion :

[bosk1000]

bonjour a tous

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

Code :

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

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 ?

[sabzzz]

bonjour bosk1000,

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 :

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

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

[bosk1000]

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

ça fonctionne
merci