OVH Cloud OVH Cloud

inscrire un commentaire dans une cellule

5 réponses
Avatar
Steph
Bonjour,

Je souhaiterais par macro inscrire un commentaire dans une cellule
J'essaye avec la macro ci-dessous, au lancement il m'indique comme erreur
"Affectation à une constante non autorisée".
---------------
Sub test()
Dim Commentaire
Commentaire = "TEST"
Range("B2").Comment.Text = Commentaire
End Sub
--------------
Ou est l'erreur ?

Merci beaucoup pour votre aide,

Steph

5 réponses

Avatar
ru-th
Salut

Sub Commentaire()
On Error Resume Next
Commentaire = "TEST"
ActiveCell.Comment.Delete
With ActiveCell.AddComment
.Shape.Placement = xlFreeFloating
.Shape.TextFrame.AutoSize = True
.Text Text:=commentaire
End With
End Sub

a+
rural thierry
"Steph" a écrit dans le message de news:
#
Bonjour,

Je souhaiterais par macro inscrire un commentaire dans une cellule
J'essaye avec la macro ci-dessous, au lancement il m'indique comme erreur
"Affectation à une constante non autorisée".
---------------
Sub test()
Dim Commentaire
Range("B2").Comment.Text = Commentaire
End Sub

--------------
Ou est l'erreur ?

Merci beaucoup pour votre aide,

Steph





Avatar
Pounet95
Bonjour,
En utilisant l'enregistreur de macros

Sub Macro1()
On Error Resume Next
Range("A1").AddComment
Range("A1").Comment.Visible = False
Range("A1").Comment.Text Text:="TEST"
Range("A1").Select
End Sub

XL2000, XP Pro

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Steph" a écrit dans le message de news:
%
Bonjour,

Je souhaiterais par macro inscrire un commentaire dans une cellule
J'essaye avec la macro ci-dessous, au lancement il m'indique comme erreur
"Affectation à une constante non autorisée".
---------------
Sub test()
Dim Commentaire
Commentaire = "TEST"
Range("B2").Comment.Text = Commentaire
End Sub
--------------
Ou est l'erreur ?

Merci beaucoup pour votre aide,

Steph



Avatar
AV
[B2].AddComment.Text Text:="TEST"

AV
Avatar
anomymousA
bonjour,

comme ça ca devrait aller.

Sub test()
Dim Commentaire
Commentaire = "TEST"
With Range("B2")
.AddComment
.Comment.Text Text:=Commentaire
End With
End Su


Bonjour,

Je souhaiterais par macro inscrire un commentaire dans une cellule
J'essaye avec la macro ci-dessous, au lancement il m'indique comme erreur
"Affectation à une constante non autorisée".
---------------
Sub test()
Dim Commentaire
Commentaire = "TEST"
Range("B2").Comment.Text = Commentaire
End Sub
--------------
Ou est l'erreur ?

Merci beaucoup pour votre aide,

Steph





Avatar
Steph
Merci beaucoup pour vos nombreuse réponse rapide :-)))


Bonjour,

Je souhaiterais par macro inscrire un commentaire dans une cellule
J'essaye avec la macro ci-dessous, au lancement il m'indique comme erreur
"Affectation à une constante non autorisée".
---------------
Sub test()
Dim Commentaire
Commentaire = "TEST"
Range("B2").Comment.Text = Commentaire
End Sub
--------------
Ou est l'erreur ?

Merci beaucoup pour votre aide,

Steph