date_convertion_1904

[Claudy]

Bonjour,
dans un tableau, je me suis emmèllé les pinceaux avec des dates:
Dans une même colonne , j'ai des dates au format 1904 coché et d'autres au format 1904 décoché!
Donc des dates 29/11/2011 et 30/11/2015 pour le même jour....

J'ai essayé ceci, mais ça va pas!

Sub date_convertion_1904()

For Each cel In Selection
If Year(CDate(cel.Value)) = 15 Then
Year(CDate(cel.Value)) = 11
Day(Year(CDate(cel.Value))) = Day(Year(CDate(cel.Value))) - 1
End If
Next

End Sub
Merci d'avance,
Claudy

 

[fanfan38]

Re : date_convertion_1904

Bonjour
Un fichier joint permettrait de vous aider...

A+ François

 

[Claudy]

Re : date_convertion_1904

ok, merci, j'ai trouvé:
Sub date_convertion_1904()

For Each cel In Selection
cel.Value = cel.Value - 1462


Next

End Sub