Détection de commentaire

[Stéphane]

Bonjour,

Je suis en train de réaliser une macro de traitement automatique de données dans laquelle j'ai besoin de savoir à un instant t si la cellule sur laquelle se trouve le curseur (ActiveCell pour les intimes) est commentée ou non. J'ai en effet l'impression que la gestion des commentaires est assez limitée via macro, et je voudrais savoir si quelqu'un aurait une réponse à mon problème...

Merci d'avance!

 

[STephane]

bonjour

il y a plusieurs méthodes
essaye celle présent ci-dessous

en prime quelques manipulations de commentaires :
Existence d'un commentaire

1ière méthode

Private Sub Worksheet_selectionChange(ByVal Target As Excel.range)
dim HasComment As Boolean
HasComment = Len(Target.NoteText)
if HasComment = true then
msgbox ("voici le commentaire" & Chr(13) & Target.NoteText)
Else
msgbox ("pas de commentaires")
end if
end Sub

Repérer tout les commentaires d'une zone

Public Sub FindComments()

Dim rngToSearch As Excel.range
Dim rngToFind As Excel.range

On Error GoTo ExitFindComments

'Set the range to check for comments
Set rngToSearch = Selection

For Each rngToFind In rngToSearch
If Not rngToFind.Comment Is Nothing Then MsgBox "Comment found in " & rngToFind.Address
Next rngToFind

ExitFindComments:

End Sub

Autre méthode

Sub lireCommentaire()
For Each c In ActiveSheet.range("A1:A3")
On Error Resume Next
MsgBox c.Address & " = " & c.Comment.Text
bug = Err.Number
If Err.Number = 91 Then MsgBox "Pas de commentaire en " & c.Address
Next c
End Sub




d'autres manips :
<http://xlbysteph.free.fr/aideinformatique/actioncellule.htm#Les_commentaires>

 

[Stéphane]

Merci! Je vais vite essayer tout ça...