On Sep 15, 11:59*pm, JB wrote:
Format conditionnel sur commentai

http://cjoint.com/?jqg643N3cc

=comment(A2)="XX"

Function Comment(c)
* *Application.Volatile
* *If c.Comment Is Nothing Then
* * *Comment = ""
* *Else
* * *Comment = Replace(c.Comment.Text, Chr(10), "")
* *End If
End Function

JBhttp://boisgontierjacques.free.fr

On 16 sep, 05:43, Carter wrote:



Hi,
I would like to learn if there is way of using a formula to apply
conditional formatting only to cells that have comments attached to
them. *I have searched for an answer, but haven't found one yet.
Thanks.- Hide quoted text -

- Show quoted text -

OK, although I am very inexperienced with programming, I gather that
you intend for this code:

"Function Comment(c)
Application.Volatile
If c.Comment Is Nothing Then
Comment = ""
Else
Comment = Replace(c.Comment.Text, Chr(10), "")
End If
End Function"

to be placed into a code module for the worsheet, and for the formula,
=comment(A2)="XX", to be placed into the "Format values where this
formula is true:" box of the conditional formatting dialog. Well, I
did all that, chose the format I wanted to be applied, changed "A2" to
be a cell with a comment attached, nothing happened—no formatting, no
error message, nothing.
Am I supposed to replace the "XX" with something specific to my
situation? Or perhaps I misunderstood the idea. Could you please
explain it in greater detail for me?
Thanks.