VBA Excel Test existence commentaire sur une cellule

papougigi le 18 novembre 2006 à 15h36

Bonjour,
je debute en VBA sous Excel.

comment tester l'existence d'un commentaire sur une cellule ?
je n'arrive pas trouver.

but : recuperer cet ancien commentaire pour le changer via une InputBox

merci d'avance

répondre

ar barzh paour le 21 novembre 2006 à 07h07

bonjour tu peux essayer quelquechose comme ceci
Sub récup_commentaire_cellule()

'agit sur le commentaire de la cellule active

On Error Resume Next
commentaire = ActiveCell.Comment.Text

If Err.Number = 91 Then
'c'est le numéro d'erreur que j'obtiens quand il n'y a pas de
'commentaire associé à la cellule
titre$ = "Ajout de commentaire"
rep$ = InputBox("donnez votre commentaire", titre$, "")
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=rep$

Else

titre$ = "Modification de commentaire"
rep$ = InputBox("donnez votre commentaire", titre$, commentaire)
ActiveCell.Comment.Text Text:=rep$

End If

End Sub

répondre

papougigi le 25 novembre 2006 à 08h45

Merci beaucoup,
VBA ne veut pas de
commentaire = ActiveCell.Comment.Text
en changeant "commentaire" par "comment", ça marche

Encore merci !

répondre

ar barzh paour le 26 novembre 2006 à 07h39

rebonjour
il faut mieux ne pas utiliser de terme "particulier"
appliqué à une cellule ,
"comment" est la propriété qui renvoie un objet "Comment" qui représente le commentaire associé à la cellule
je n'ai pas d'erreur lorsque je lance cette procédure
peut-être (je ne suis pas spécialiste de la programmation) en essayant ceci

Sub récup_commentaire_cellule()
dim commentaire as variant
'agit sur le commentaire de la cellule active
On Error Resume Next
commentaire = ActiveCell.Comment.Text
etc ....
de toute façon , on peut effectivement remplacer "commentaire" par n'importe quoi
bon courage

répondre