Gestion des dates en vba

Bonsoir,

En vba comment indiquer à l'utilisateur qu'il ne peut pas sortir de la date fin d'une période s'il dépasse la date du jour ou s'il est supérieur à 1 an par rapport à la date de début ?

Par exemple date début de période

01/01/2013
Date de fin : 01/01/2014 pas de problème "1 an"

01/01/2013 en début
02/01/2014 en fin EXCEL envoie une boîte informant que l'on ne peut pas dépasser 1 an ou la date du jour, après avoir cliqué sur OK le curseur revient dans la cellule date fin en ayant supprimé celle ci ou mieux en inscrivant par défaut la date du jour obligeant ainsi l'utilisateur à remettre une date valide.

Merci. :?

Bonsoir,
Pourquoi utiliser du code VBA quand l'outil Validation de données est créé pour cela.
En supposant que la date de début de période est en colonne A, et la fin de période en colonne Bet que les lignes de données commence à la deuxième ligne.
Sélectionner les cellules de la colonne B (par exemple B2:B20) et ensuite cliquer sur le commande Validation des données du groupe Outils de données de l'Onglet [Données]

Dans la boîte de dialogue de l'outil Validation de données, sélectionner l'onglet [Options], choisir Date dans la liste Autoriser
Sélectionner Inférieure ou égale à et placer cette formule

Code:

---

=DATE(ANNEE(A2)+1;MOIS(A2);JOUR(A2))

---

Bonsoir Philippe,

En effet ça fonctionne sauf que sur la date de fin Excel laisse passer la date du jour, j'ai tapé 19/01/2014 alors que nous sommes que le 18/01.
En fait il faut deux conditions dans la règle de validation.

merci et bonne soirée.

Bonjour,
Et quelle est cette seconde condition ?

Citation:

---

01/01/2013 en début
02/01/2014 en fin EXCEL envoie une boîte informant que l'on ne peut pas dépasser 1 an ou la date du jour, après avoir cliqué sur OK le curseur revient dans la cellule date fin en ayant supprimé celle ci ou mieux en inscrivant par défaut la date du jour obligeant ainsi l'utilisateur à remettre une date valide.

---

L'outil Validation de données peut gérer plusieurs conditions. S'il faut soit ne pas dépasser un an par rapport à la date du début de période soit accepter la date du jour, c'est faisable également.
Dans cas là, il faut choisir Personnalisé au lieu de Date dans la liste Autoriser et la formule est

Code:

---

=OU(B2<=DATE(ANNEE(A2)+1;MOIS(A2);JOUR(A2));B2=AUJOURDHUI())

---

Merci beaucoup.

@+
Philippe. :ccool: