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
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
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" <anonymous@discussions.microsoft.com> a écrit dans le
message de news: 2ba801c4286d$995b72b0$a501280a@phx.gbl...
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..
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
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
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" <anonymous@discussions.microsoft.com> a écrit dans le
message de news: 2ba801c4286d$995b72b0$a501280a@phx.gbl...
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..
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
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 .
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..