Dates sous XL

[jb]

Salut,

j'ai une date dans une cellule XL au format JJ/MM/AA HH:MI et je voudrais faire une macro VB capable de me donner la date du jour précédent dans la cellule du dessous.
J'aurais besoin aussi d'une macro me donnant le même jour mais trois mois auparavant.

Merci de m'aider et à bientôt

jb

 

[didier]

Sub Macro2()

ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=R[-1]C-DAY(1)"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Sub Macro3()

ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=R[-1]C-DATE(,4,1)"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub


cela devrai faire ton bonheur


Salut