Récupérer le commentaire dans une cellule...

[Christian]

Bonjour à tout le forum,

Existe-t-il une formule qui écrit le commentaire d'une cellule dans une autre sous forme de texte?

expl : fichier joint

Merci pour le temps que vous voudrez bien m'accorder.
Bien amicalement,
Christian [file name=RecupCommentaires.zip size=6658]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RecupCommentaires.zip[/file]

 

[Hervé]

Bonjour christian

une solution en passant par une formule personnalisée.

salut

Public Function commentaire(cellule As Range) As String
If Not cellule.Comment Is Nothing Then
        commentaire = cellule.Comment.Text
Else
        commentaire = 'pas de commentaire'
End If
End Function

[file name=RecupCommentaires_20060114094239.zip size=7807]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RecupCommentaires_20060114094239.zip[/file]

 

[Christian]

ReBonjour à tout le fourm, Hervé,

Merci Hervé pout ta solution.

Peux-tu me dire comment faire si je veux appliquer ta solution dans le cas d'une colonne contenant des chiffres?.

Encore merci

à+
Christian

 

[Hervé]

re christian

j'ai compris que tu avais des chiffres dans ton commentaire.

Public Function commentaire(cellule As Range)
Dim commentcellule As String

If Not cellule.Comment Is Nothing Then
        commentcellule = cellule.Comment.Text
Else
        commentcellule = 'pas de commentaire'
End If

If IsNumeric(commentcellule) Then
        commentaire = CDbl(commentcellule)
Else
        commentaire = commentcellule
End If

End Function

salut

 

[Christian]

Re le forum, Hervé,

Merci beucoup Hervé c'est exactement ça..


Bien amicalement,
Christian