michael

Bonjour,

merci pour la réponse. J'ai trouvé une autre solution. Voici la fonction :

Function HasComment(Wrksh As Worksheet, iCln As Integer, iRow As _ Integer) As Boolean
Dim zCln As Integer
Dim zRow As Integer

For Each Cmt In Wrksh.Comments
zCln = Cmt.Parent.Column
zRow = Cmt.Parent.Row
If zCln = iCln And zRow = iRow Then HasComment = True
Next Cmt

End Function

où iCln et iRow sont les référnces de la cellule qui est testé et Wrksh la feuille dans laquelle elle est contenue.


Michael