Hello,

in excel 2000 sp3, i found a bug using conditional formatting.
Let's say i have two cells A1 and A2.
I want to set A2 backcolor according to A1 backcolor.
If i set conditional formatting on A2 cell, using =iscouleur("A1")
as the condition for the formatting.
Iscouleur is a custom VBA function defined as:

public function iscouleur(r as range) as boolean
iscouleur=(r.interior.color>0)
end function

It works OK, but if I want to set manually the backcolor of A2, although
there is already a conditional formatting on the backcolor, then it
crash with "Memory cannot be read" or a "Floating calculation error".

Any idea if this is a known bug and if there is a workaround?

Thanks,
Lionel.

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


--


HTH

RP
(remove nothere from the email address if mailing direct)


"yoyo" <(E-Mail Removed)> wrote in message
news:43bb0b41$0$30419$(E-Mail Removed)...
> Hello,
>
> in excel 2000 sp3, i found a bug using conditional formatting.
> Let's say i have two cells A1 and A2.
> I want to set A2 backcolor according to A1 backcolor.
> If i set conditional formatting on A2 cell, using =iscouleur("A1")
> as the condition for the formatting.
> Iscouleur is a custom VBA function defined as:
>
> public function iscouleur(r as range) as boolean
> iscouleur=(r.interior.color>0)
> end function
>
> It works OK, but if I want to set manually the backcolor of A2, although
> there is already a conditional formatting on the backcolor, then it
> crash with "Memory cannot be read" or a "Floating calculation error".
>
> Any idea if this is a known bug and if there is a workaround?
>
> Thanks,
> Lionel.

Bob Phillips wrote:
> 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
>
>
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.