Erreur de date - Message automatique

[Elvis_vivant]

Bonjour !

Petite mise en contexte :

Date du jour est en H8 (ex. : 2009-10-16)
Date de paiement est en H11 (ex. : 2010-01-01)

La date du jour est générée automatiquement.
La date de paiement est choisie à partir d'un calendrier.

Lorsque la date de paiement est antérieure à la date du jour, je veux que le message d'erreur suivant apparaisse : "La date de paiement doit être postérieure à la date du jour".

Voici le code que j'ai bidouillé pour essayer d'arriver à mes fins (et ça ne fonctionne pas) :


Private Sub Worksheet_Calculate()

If Range("H11").Value < Range("H8").Value Then
MsgBox "La date de paiement doit être postérieure à la date du jour"

End If

End Sub


Quelqu'un peut m'indiquer où est mon erreur ?

Merci à l'avance !

 

[job75]

Re : Erreur de date - Message automatique

Bonsoir,

Une macro est inutile pour si peu de chose.

Utiliser la validation de données avec la formule =H11>=H8

Edit : la macro Calculate se déclanche seulement quand des formules sont recalculées dans la feuille.

A+