bonjour Marty
Salut Eric, Pascal
voici ce que j'avais pondu certes moins elegant mais qui fonctionne avec par exemple
MAINTENANT dans une cellule
Sub test()
For n = 1 To Range('A65536').End(xlUp).Row
If Format(Cells(n, 1), 'dd/mm/yyyy') = Format(Now(), 'dd/mm/yyyy') Then
MsgBox ('La date existe')
Exit Sub
End If
Next
'action
End Sub
edition : correction suite à remarque de Pascal voir ci-dessous
Message édité par: pierrejean, à: 30/03/2006 12:38