OVH Cloud OVH Cloud

tester le commentaire

3 réponses
Avatar
bruno
bonjour,
peut on tester la presence d'un commentaire dans un cellule
en vba
if .... then ....
merci

bruno

3 réponses

Avatar
Jacky
Bonjour Bruno

'---------------
If Range(ActiveCell.Address).NoteText <> "" Then
MsgBox ActiveCell.NoteText
End If
'-------------
Salutations
JJ

"bruno" a écrit dans le message de
news:435e2500$0$9811$
bonjour,
peut on tester la presence d'un commentaire dans un cellule
en vba
if .... then ....
merci

bruno


Avatar
michdenis
Bonjour Bruno,

'-------------------
Sub test()

On Error Resume Next
C = Range("A3").Comment.Text
If Err = 0 Then
MsgBox "la cellule a un commentaire."
Else
Err = 0
MsgBox "la cellule n'a pas de commentaire."

End If
End Sub
'-------------------


Salutations!



"bruno" a écrit dans le message de news: 435e2500$0$9811$
bonjour,
peut on tester la presence d'un commentaire dans un cellule
en vba
if .... then ....
merci

bruno
Avatar
michdenis
Bonjour Jacky,

La question existentielle de la journée :
Si le commentaire est vide, doit-on considérer la cellule comme ayant un commentaire ?
;-)


Salutations!


"Jacky" a écrit dans le message de news: %
Bonjour Bruno

'---------------
If Range(ActiveCell.Address).NoteText <> "" Then
MsgBox ActiveCell.NoteText
End If
'-------------
Salutations
JJ

"bruno" a écrit dans le message de
news:435e2500$0$9811$
bonjour,
peut on tester la presence d'un commentaire dans un cellule
en vba
if .... then ....
merci

bruno