commentaire dans une cellule

[jeffjeff]

bonjour a vous tous.
comment via VBA, detecter si une cellule comporte un commentaire (le fameux petit triangle rouge en haut a droite de la cellule)?
merci pour votre aide

 

[eriiic]

Bonjour

If Not [B1].Comment Is Nothing Then
   ' [B1] a un commentaire
End If

eric

 

[Staple1600]

Bonsoir le fil, le forum

Sub a()
If Len(ActiveCell.Comment.Text) > 0 Then
MsgBox "Il ya un commentaire dans: " & ActiveCell.Address(0, 0), vbInformation, "Détection Commentaire"
End If
End Sub

EDITION:
Houps! pas vu passé eriiiic

 

[jeffjeff]

vous etes trop fort, merci a vous

 

[eriiic]

J'étais en mode furtif... ;-)