Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel modifier un commentaire

modifier un commentaire

5 réponses
Avatar
yan
Bonjour
Il y peu on m'avait donné ce debut de code pour inserer un commentaire:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If ActiveCell.NoteText = "" Then
Target.AddComment
.....
.....
Si je veut cette fois modifier un commentaire existant dois je remplacer
Addcomment par autre chose? mais quoi?
Je cheche mais ne trouve pas j'ai mis modify, mais pas bon
Merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Insère la date du jour et le nom d'utilsateur sur le clic droit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If ActiveCell.NoteText = "" Then
Target.AddComment
Target.Comment.Text Text:=CStr(Now) & Chr(10) &
Environ("username") & Chr(10)
lg = Len(Target.Comment.Text)
With Target.Comment.Shape.TextFrame
.Characters(Start:=1, Length:=lg).Font.Name = "Verdana"
.Characters(Start:=1, Length:=lg).Font.Size = 8
.Characters(Start:=1, Length:=lg).Font.Bold = True
.Characters(Start:=1, Length:=lg).Font.Italic = True
.Characters(Start:=1, Length:=lg).Font.ColorIndex = 3

.Characters(Start:=lg, Length:™).Font.Bold = False
.Characters(Start:=lg, Length:™).Font.Italic = False
.Characters(Start:=lg, Length:™).Font.ColorIndex = 1
End With
SendKeys "m"
Else
SendKeys "m"
End If
End Sub

http://cjoint.com/?lsiFWmAWaM

JB

Bonjour
Il y peu on m'avait donné ce debut de code pour inserer un commentaire:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If ActiveCell.NoteText = "" Then
Target.AddComment
.....
.....
Si je veut cette fois modifier un commentaire existant dois je remplacer
Addcomment par autre chose? mais quoi?
Je cheche mais ne trouve pas j'ai mis modify, mais pas bon
Merci


Avatar
Jacky
Bonjour,

Exemple cellule A10

'rajoute du texte
Range("A10").Comment.Text Text:=Range("A10").Comment.Text & Chr(10) &
"ajout texte"

'remplace le texte
Range("A10").Comment.Text Text:="" & "nouveau texte"

--
Salutations
JJ

"yan" a écrit dans le message de news:
455eb087$0$27412$
Bonjour
Il y peu on m'avait donné ce debut de code pour inserer un commentaire:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If ActiveCell.NoteText = "" Then
Target.AddComment
.....
.....
Si je veut cette fois modifier un commentaire existant dois je remplacer
Addcomment par autre chose? mais quoi?
Je cheche mais ne trouve pas j'ai mis modify, mais pas bon
Merci




Avatar
yan
Bonjour Jacky
Merci de m'avoir répondu et mis sur la voie
J'ai fait ceci qui semble fonctionner
ActiveCell.Comment.Text Text:¬tiveCell.Comment.Text & Chr(10) &
CStr(Date) & "; "
bon week-end
Merci
A+
Yan

"Jacky" a écrit dans le message de news:

Bonjour,

Exemple cellule A10

'rajoute du texte
Range("A10").Comment.Text Text:=Range("A10").Comment.Text & Chr(10) &
"ajout texte"

'remplace le texte
Range("A10").Comment.Text Text:="" & "nouveau texte"

--
Salutations
JJ

"yan" a écrit dans le message de news:
455eb087$0$27412$
Bonjour
Il y peu on m'avait donné ce debut de code pour inserer un commentaire:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If ActiveCell.NoteText = "" Then
Target.AddComment
.....
.....
Si je veut cette fois modifier un commentaire existant dois je remplacer
Addcomment par autre chose? mais quoi?
Je cheche mais ne trouve pas j'ai mis modify, mais pas bon
Merci








Avatar
Jacky
Re...
J'ai fait ceci qui semble fonctionner
Ok

Pense à mettre un "On Error Resume Next' avant ce code et un "On Error GoTo
0" après.
Au cas ou il n'y aurait pas de "Comment" dans la cellule en cours.

--
Salutations
JJ

"yan" a écrit dans le message de news:
455edab9$0$5068$
Bonjour Jacky
Merci de m'avoir répondu et mis sur la voie
J'ai fait ceci qui semble fonctionner
ActiveCell.Comment.Text Text:¬tiveCell.Comment.Text & Chr(10) &
CStr(Date) & "; "
bon week-end
Merci
A+
Yan

"Jacky" a écrit dans le message de news:

Bonjour,

Exemple cellule A10

'rajoute du texte
Range("A10").Comment.Text Text:=Range("A10").Comment.Text & Chr(10) &
"ajout texte"

'remplace le texte
Range("A10").Comment.Text Text:="" & "nouveau texte"

--
Salutations
JJ

"yan" a écrit dans le message de news:
455eb087$0$27412$
Bonjour
Il y peu on m'avait donné ce debut de code pour inserer un commentaire:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If ActiveCell.NoteText = "" Then
Target.AddComment
.....
.....
Si je veut cette fois modifier un commentaire existant dois je remplacer
Addcomment par autre chose? mais quoi?
Je cheche mais ne trouve pas j'ai mis modify, mais pas bon
Merci












Avatar
yan
Je l'ai fait
Merci
A+
Yan

"Jacky" a écrit dans le message de news:
%23%
Re...
J'ai fait ceci qui semble fonctionner
Ok

Pense à mettre un "On Error Resume Next' avant ce code et un "On Error
GoTo 0" après.
Au cas ou il n'y aurait pas de "Comment" dans la cellule en cours.

--
Salutations
JJ

"yan" a écrit dans le message de news:
455edab9$0$5068$
Bonjour Jacky
Merci de m'avoir répondu et mis sur la voie
J'ai fait ceci qui semble fonctionner
ActiveCell.Comment.Text Text:¬tiveCell.Comment.Text & Chr(10) &
CStr(Date) & "; "
bon week-end
Merci
A+
Yan

"Jacky" a écrit dans le message de news:

Bonjour,

Exemple cellule A10

'rajoute du texte
Range("A10").Comment.Text Text:=Range("A10").Comment.Text & Chr(10) &
"ajout texte"

'remplace le texte
Range("A10").Comment.Text Text:="" & "nouveau texte"

--
Salutations
JJ

"yan" a écrit dans le message de news:
455eb087$0$27412$
Bonjour
Il y peu on m'avait donné ce debut de code pour inserer un commentaire:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
If ActiveCell.NoteText = "" Then
Target.AddComment
.....
.....
Si je veut cette fois modifier un commentaire existant dois je
remplacer
Addcomment par autre chose? mais quoi?
Je cheche mais ne trouve pas j'ai mis modify, mais pas bon
Merci