commentaire dans une cellule

eriiic

XLDnaute Barbatruc

• 16 Novembre 2017

• #2

Bonjour

VB:

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

eric

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Novembre 2017

• #3

Bonsoir le fil, le forum

VB:

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

 

Vote positif 0 Vote négatif

J

jeffjeff

Guest

• 16 Novembre 2017

• #4

vous etes trop fort, merci a vous

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 16 Novembre 2017

• #5

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

 

Vote positif 0 Vote négatif