Contrôle de doublon à la saisie

Je voudrais à l'aide d'un input box qu'un utilisateur entre une date. Si cette date figure déjà dans une plage donnée, je voudrais que la date se colore en jaune.

mess = InputBox("Saisissez la Date recherchée", "")
 If mess = "" Then exit sub
 On Error GoTo laFin
 Dim CelleLa As Range
 For Each CelleLa In Range("A1:F10")
 If CelleLa = CDate(mess) Then CelleLa.Interior.ColorIndex = 6
 Next
 laFin:

Auteur :

Mots clefs associés à cette page : , , ,