Voyez le fichier joint et cette fonction VBA dans Module1 (Alt+F11) :
Code:
Function Decale(d As Date, t As String) As Date
Dim s
t = Replace(Replace(Replace(t, "ans", ""), "mois", ""), "jours", "")
t = Application.Trim(t) 'SUPPRESPACE
s = Split(t)
Decale = DateSerial(Year(d) + s(0), Month(d) + s(1), Day(d) + s(2))
End Function
Dans "Durée effectuée" il ne doit y avoir que des nombres et les mots : ans mois jours.
Voyez le fichier joint et cette fonction VBA dans Module1 (Alt+F11) :
Code:
Function Decale(d As Date, t As String) As Date
Dim s
t = Replace(Replace(Replace(t, "ans", ""), "mois", ""), "jours", "")
t = Application.Trim(t) 'SUPPRESPACE
s = Split(t)
Decale = DateSerial(Year(d) + s(0), Month(d) + s(1), Day(d) + s(2))
End Function
Dans "Durée effectuée" il ne doit y avoir que des nombres et les mots : ans mois jours.