Si commentaire dans cellule

La seule solution que j'ai trouvé C

ON ERROR Goto TEST

avec le test de l'erreur 91 où je fais mon AddComment
Si autre chose je veux bien

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