=estdate()

[Jam]

Bonjour à tous,

Cette petite fonction n'existe pas sous XL2K3 alors j'ai développé la mienne:

Function ESTDATE(Ref As Variant) As Boolean
On Error Resume Next
If IsDate(Ref) Then
    ESTDATE = True
    Exit Function
End If
ESTDATE = False
End Function

En fait j'ai une (très) longue liste dans laquelle j'ai besoin de tester si la valeur est une date ou non. J'imagine qu'il existe un moyen via une formule de le savoir, j'ai aussi utilisé la formule (bcp plus rapide que ma fonction VBA):
=SI(ESTERREUR(DATEVAL(maCellule));FAUX;VRAI)

En fait j'aurais aimé savoir s'il n'existait pas un moyen plus simple de faire autrement qu'avec les 2 solutions que j'ai utilisées, car je n'ai rien trouvé sur le forum.

Merci d'avance,

 

[pierrejean]

Re : =estdate()

bonjour Jam

voila une fonction du même type mais est-elle plus ou moins rapide que la tienne ???

Function estdate(ref As Variant) As Boolean
On Error GoTo fin
x = CDate(ref)
estdate = True
On Error GoTo 0
Exit Function
fin:
estdate = False
On Error GoTo 0
End Function