Commentaires

S

STéphane

Guest

• 25 Novembre 2003

• #2

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

 

Vote positif 0 Vote négatif

S

sousou

Guest

• 25 Novembre 2003

• #3

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

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

 

Vote positif 0 Vote négatif

M

michel

Guest

• 25 Novembre 2003

• #4

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

 

Vote positif 0 Vote négatif

B

Bronson

Guest

• 25 Novembre 2003

• #5

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

 

Vote positif 0 Vote négatif

M

michel

Guest

• 25 Novembre 2003

• #6

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

 

Vote positif 0 Vote négatif

B

Bronson

Guest

• 25 Novembre 2003

• #7

Merci Michel,

Je regarde ça demain et te tirens au courant

Bonne soirée

Bronson

 

Vote positif 0 Vote négatif

M

michel

Guest

• 25 Novembre 2003

• #8

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

 

Vote positif 0 Vote négatif

B

Bronson

Guest

• 25 Novembre 2003

• #9

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

 

Vote positif 0 Vote négatif

S

STéphane

Guest

• 26 Novembre 2003

• #10

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

 

Vote positif 0 Vote négatif

B

Bronson

Guest

• 26 Novembre 2003

• #11

Stéphane

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

Merci beaucoup

Bonne soirée

Bronson

 

Vote positif 0 Vote négatif