Bascule entre les bases de dates

En référence avec l’article précédent, j’ai écrit une toute petite macro pour basculer entre les dates à la Bill Gates et les dates à la Steve Jobs. Un simple clic sur le bouton permet de basculer entre les deux modes. Voici la macro :

Sub Change_base_date()

    ActiveWorkbook.Date1904 = _

        Not (ActiveWorkbook.Date1904)

End Sub

Notez l’utilisation astucieuse de la fonction Not() qui permet d’éviter un bien plus lourd :

Sub Change_base_date()

    If ActiveWorkbook.Date1904 = True Then

          ActiveWorkbook.Date1904 = False

     Else

          ActiveWorkbook.Date1904 = True

     End If

End Sub

Nous avons entré en D1:E4 quelques dates célèbres. Nous voyons que les dates en E1:E2, antérieures à la première date possible (0 janvier 1900 ou 1 janvier 1904, selon la grand-mère) sont prises sous la forme de texte et donc cadrées à gauche par défaut.

Du coup, elles ne bougent pas quand on passe à la base 1904, contrairement aux deux dates en E3:E4.

 

Deux lectures pour mieux comprendre et gérer les dates non reconnues comme telles par Excel…

How to Work with Dates Before 1900 in Excel :

http://exceluser.com/formulas/earlydates.htm

Pre-1900 Dates in Excel :

http://www.pcmag.com/article2/0,2817,2114548,00.asp