I am not getting this problem at all. Your CF is wrong as well, it should be
=IsCouleur(A1)
not
=IsColuler("A1")
as the latter is trying to pass a string value to a range argument, which is
invalid.
Also, should the function be
Public Function iscouleur(r As Range) As Boolean
iscouleur = r.Interior.ColorIndex > xlColorindexNone
End Function

Signature
HTH
RP
(remove nothere from the email address if mailing direct)
> Hello,
>
[quoted text clipped - 17 lines]
> Thanks,
> Lionel.
yoyo - 06 Jan 2006 23:24 GMT
> I am not getting this problem at all. Your CF is wrong as well, it should be
>
[quoted text clipped - 12 lines]
> iscouleur = r.Interior.ColorIndex > xlColorindexNone
> End Function
True, it is
IsCouleur(A1)
And whatever the test is, it shouldn't crash. Here i was testing that
the cell color was not black since Interior.color returns a long rgb value.
The problem is still there, it crashs!
It is a french version of Excel 2000 SP3 running on windows 2000 pro SP4.
Any other idea?
Thanks,
Lionel.