Commentaires

[Bronson]

Bonsoir à tous;

Je cherche à lire le commentaire d'une cellule de WS dans une macro, je sèche lamentablement... Est-ce possible?, si oui comment?

D'avance merci

Bronson

 

[STéphane]

bsr

selection.notetext
selection.comment.text


infos et codes ici :
<http://xlbysteph.free.fr/aideinformatique/actioncellule.htm>
http://perso.wanadoo.fr/frederic.sigonneau
http://www.excellabo.net

 

[sousou]

Est-ce que c'est ca que tu cherches?

MsgBox ActiveSheet.Range("a1").Comment.Text

 

[michel]

bonsoir Bronson

ci joint deux exemples , pour afficher le commentaire de la cellule a1 , et tous les commentaires de la feuille active

Sub CommentaireCelluleA1()
Dim Cmnt As Comment

On Error GoTo Fin
MsgBox Range("A1").Comment.Text
Exit Sub

Fin:
If Err.Number = 91 Then MsgBox "Il n'y a pas de commentaire dans la cellule A1 . "

End Sub



Sub ListeCommentairesfeuille()
Dim Cmnt As Comment
Dim Liste As String

On Error GoTo Fin
For Each Cmnt In ActiveSheet.Comments
Liste = Liste & Cmnt.Parent.Address & " = " & Cmnt.Text & Chr(10) & Chr(10)
Next Cmnt

MsgBox Liste
Exit Sub

Fin:
If Err.Number = 91 Then MsgBox "Il n'y a pas de commentaires dans la feuille . "

End Sub

bonne soirée
michel

 

[Bronson]

Merci pour vos réponses rapides,

en fait ce que cherche à faire est une fonction perso du type

Function ContenuComment(Cellule)
On Error Resume Next
ContenuComment = Cells(Cellule.Row, Cellule.Column).Comment.Text
End Function

selon le résultat de la fonction la valeur de la cell dans la WS varie..

Tout va bien lorsque l'argu de la function est une cell de la m feuille mais plus rien ne va quand l'argu fait appel à une ref du type 'Feuille12'!$J$122, c'est là ou je sèche

Re merci d'avance

Bronson

 

[michel]

Bonsoir sousou , bonsoir STephane

excusez moi je n'avais pas vu vos messages
( ...depuis deux jours j'ai des petits soucis de rafraichissement d'écran , lorsque je consulte les pages du forum...)

bonne soirée
michel

 

[Bronson]

Merci Michel,

Je regarde ça demain et te tirens au courant

Bonne soirée

Bronson

 

[michel]

rebonsoir à tous

je n'ai pas vérifié si cela fonctionne , mais tu peux tester la fonction ci dessous

Function ContenuComment(Cellule)
On Error Resume Next
ContenuComment = Worksheets("Feuille12").Range(Cellule.Address).Comment.Text
End Function

bonne soirée
michel

 

[Bronson]

Michel bonsoir,

Ta formule fonctionne parfaitement, les choses avancent, mais le pb qui subiste est d'identifier la feuille de référence.

la formule dans la WS est du type ContenuComment('XXXX'!J122),

comment faire lire le comment de la cell j122 de la WS "XXXX", WS qui est variable?

Bonsoir

Bronson

 

[STéphane]

Function HasComment(rg As Range)
HasComment = Len(rg.NoteText)
If CBool(HasComment) = True Then
HasComment = rg.NoteText
Else
HasComment = "pas de commentaires"
End If
End Function

 

[Bronson]

Stéphane

C'est exactement ce que je cherchais, Super!!!

Merci beaucoup

Bonne soirée

Bronson