OVH Cloud OVH Cloud

VBA: Ajout d'un commentaire à une cellule

4 réponses
Avatar
Jean-Luc GARNIER
Bonjour,

Je cherche =E0 ajouter un commentaire =E0 une cellule de la=20
page active, par le code suivant:

Cells(1, 11).AddComment.Text "cr=E9ation"

Rien de plus simple, mais ca ne marche pas =E9videmment..

Une piste ?

Merci d'avance pour toute aide,

Jean-Luc, MARSEILLE

4 réponses

Avatar
isabelle
bonjour Jean-Luc,

cela fonctionne bien sur xl2002 sp2, sur quel version es tu ?
est que la feuille (ou le classeur) est protégée ?

isabelle


Bonjour,

Je cherche à ajouter un commentaire à une cellule de la
page active, par le code suivant:

Cells(1, 11).AddComment.Text "création"

Rien de plus simple, mais ca ne marche pas évidemment..

Une piste ?

Merci d'avance pour toute aide,

Jean-Luc, MARSEILLE


Avatar
Pascal Engelmajer
salut,
n'y a-t'il pas déjà un commentaire.

si oui
on error resume next
cells(1,11).comment.delete
Cells(1, 11).AddComment.Text "création"
on error goto 0
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Jean-Luc GARNIER" a écrit dans le
message de news: 2ba801c4286d$995b72b0$
Bonjour,

Je cherche à ajouter un commentaire à une cellule de la
page active, par le code suivant:

Cells(1, 11).AddComment.Text "création"

Rien de plus simple, mais ca ne marche pas évidemment..

Une piste ?

Merci d'avance pour toute aide,

Jean-Luc, MARSEILLE
Avatar
ru-th
Salut

un exemple

Sub Commentaire()
On Error Resume Next
ActiveCell.Comment.Delete
With ActiveCell.AddComment
.Shape.Placement = xlFreeFloating
.Shape.TextFrame.AutoSize = True
.Text Text:="Bonjour !"
End With
' SendKeys "%IM"
End Sub

"Jean-Luc GARNIER" a écrit dans le
message de news: 2ba801c4286d$995b72b0$
Bonjour,

Je cherche à ajouter un commentaire à une cellule de la
page active, par le code suivant:

Cells(1, 11).AddComment.Text "création"

Rien de plus simple, mais ca ne marche pas évidemment..

Une piste ?

Merci d'avance pour toute aide,

Jean-Luc, MARSEILLE
Avatar
Jean-Luc GARNIER
Merci à tous, il y avait effectivement un commentaire
invisible dans la ligne que j'utilisais ! Ah, sacrée loi
de Murphy !

Jean-Luc

-----Message d'origine-----
Bonjour,

Je cherche à ajouter un commentaire à une cellule de la
page active, par le code suivant:

Cells(1, 11).AddComment.Text "création"

Rien de plus simple, mais ca ne marche pas évidemment..

Une piste ?

Merci d'avance pour toute aide,

Jean-Luc, MARSEILLE
.