Lorsque vous entrez des dates dans une feuille de calcul, Excel offre une certaine latitude sur la façon dont vous les entrez. Un domaine où la latitude est accordée est celui de l’inclusion d’une année. Si vous incluez une année (comme le 3/2/08), c’est génial. Si vous n’incluez pas une année (par exemple, 3/2), Excel ajoute utilement l’année en cours à ce que vous entrez.

La plupart du temps, ce n’est pas un problème. Cela peut cependant être un problème pour ceux qui saisissent des dates qui «remontent» à l’année dernière. Par exemple, de nombreuses personnes saisissent les dates du ou des deux mois précédents dans leurs feuilles de calcul. Dans la plupart des mois, ce n’est pas un problème, car le ou les deux derniers mois sont de la même année que le mois en cours. Cela peut toutefois être un problème en janvier et février, lorsque vous entrez peut-être des dates de novembre et décembre de l’année précédente.

Une solution consiste à toujours saisir l’année lors de la saisie d’une date. Il est incontestablement plus rapide de quitter l’année pendant la saisie des données et de permettre à Excel de l’ajouter à votre saisie. Ainsi, ce serait bien de trouver un moyen de saisir les dates au cours des deux premiers mois de l’année et d’y ajouter l’année précédente.

Une façon de gérer cela consiste à modifier la date système sur votre ordinateur.

Sous Windows, décrémentez la date système d’un an. Ensuite, toutes les dates que vous saisissez seront remplacées par l’année dernière. Cependant, cela a des ramifications dans d’autres programmes, à moins que vous ne vous rappeliez de modifier la date du système.

Cela peut également gâcher votre saisie de données si, à la fin de janvier et au début de février, vous commencez à saisir des dates à partir de cette année et qu’Excel y ajoute automatiquement l’année dernière.

Faire quelque chose de plus complexe implique nécessairement l’utilisation d’une macro.

Prenons l’exemple suivant, qui devrait être ajouté à la fenêtre de code d’une feuille de calcul:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub     If Target = "" Then Exit Sub     If Target.Column <> 1 Then Exit Sub

If DateValue(Target) > Date Then         Application.EnableEvents = False             Target = DateAdd("yyyy", -1, Target)

Application.EnableEvents = True     End If End Sub

Cette macro s’exécute automatiquement chaque fois qu’il y a une modification dans la feuille de calcul. Si la modification apportée concerne une seule cellule de la colonne A et que la date saisie est supérieure à la date du jour, une année est soustraite de ce qui est saisi.

Cela fonctionne très bien, à condition que vous saisissiez régulièrement des dates correspondant à la dernière année ou aux mois jusqu’à présent dans l’année en cours. Si vous ajoutez spécifiquement une date dans un avenir lointain (par exemple, saisissez le 11/06/17 le 02/03/16), l’année est toujours incrémentée de un. La macro pourrait, bien entendu, être modifiée pour vérifier si la date saisie est dans les deux derniers mois de l’année, et que la date est effectivement saisie pendant les deux premiers mois de l’année, avant de faire la décrémentation de l’année.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (3360) s’applique à Microsoft Excel 97, 2000, 2002 et 2003.