Si commentaire dans cellule

[michael]

Bonjour,

je souhaiterais savoir comment faire pour savoir si une cellule contient un commentaire afin d'avoir une condition pour utiliser AddComment ou Comment.Text

Merci d'avance

Michael

 

[Valtau]

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

 

[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