Bonjour à tous, j'ai un bout code qui doit m'établir des dates limites de validité, pour cela j'utilise la fonction dateadd, j'ai réussi à faire fonctionner sur un échantillon de 10 lignes, alors je l'applique à toute ma feuille avec ce code:
Mais en résultat toutes mes dates sont 30/12/1902 ou 30/12/1900, ce qui est bien entendu faux.
Savez-vous d'où cela peut venir et comment faire fonctionner le code correctement ?
Merci par avance !
Tweedi
Code:
With Sheets("Feuil1")
dat = .Cells(i, 11).Value
For i = 2 To lastrow
If .Cells(i, 12).Value = "3 ans" Then
.Cells(i, 15).Value = DateAdd("yyyy", 3, dat)
ElseIf .Cells(i, 12).Value = "2 ans" Then
.Cells(i, 15).Value = DateAdd("yyyy", 2, dat)
ElseIf .Cells(i, 12).Value = "1 an" Then
.Cells(i, 15).Value = DateAdd("yyyy", 1, dat)
Else: .Cells(i, 15).Value = ""
End If
Next i
End With
Mais en résultat toutes mes dates sont 30/12/1902 ou 30/12/1900, ce qui est bien entendu faux.
Savez-vous d'où cela peut venir et comment faire fonctionner le code correctement ?
Merci par avance !
Tweedi