Test if comment is valide

[mchbani]

Salut
J'espere que ça sera ma derniere question cette semaine

je veux tester si un cellule a un commentaire ou non, j'ai fait plusieur tentif mais ça plante tjrs lorsque j'accede au champ cell.comment.text.

if Not isNull(Cell.Comment) then
Cell.Comment.text="coco"
end if


IF cell.Comment.isValid =true then
Cell.Comment.text="coco"
end if


Merci Bcp
--Moha--

 

[myDearFriend]

Bonjour Mchbani, le Forum.


Tu peux utiliser la fonction suivante :
Function ExisteCommentaire(R As Range) As Boolean
ExisteCommentaire = Not R.Comment Is Nothing
End Function


Pour tester la cellule active :
MsgBox "Y a t'il un commentaire dans la cellule active ?" & vbCrLf & ExisteCommentaire(ActiveCell)



Cordialement,
Didier_mDF

 

[mchbani]

ça marche , merci bcp my Dear Friend