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 Modification du texte par défaut d'un commentaire en vba

Modification du texte par défaut d'un commentaire en vba

4 réponses
Avatar
Mario Limoges
Bonjour à tous,

Je cherches un moyen efficace (en vba) d'apposer un commentaire sur un
cellule en modifiant le texte intégré par défaut par excel

Merci à l'avance
Signaler un problème avec ce contenu

4 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
Daniel
Bonjour.
Sur l'évènement double clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim Commentaire As String
Commentaire = InputBox("Entre le commentaire")
Selection.AddComment
Selection.Comment.Text Text:=Commentaire
Selection.Offset(0, 1).Select
End Sub

Cordialement.
Daniel
"Mario Limoges" a écrit dans le message de
news: ZYilg.3538$
Bonjour à tous,

Je cherches un moyen efficace (en vba) d'apposer un commentaire sur un
cellule en modifiant le texte intégré par défaut par excel

Merci à l'avance



Avatar
Mario Limoges
Merci Daniel pour l'intérêt porté.

Effectivement ca fonctione bien. Le défis parcontre est de pouvoir
déterminer à l'avance
si la cellule visée contient déjà un commentaire.
Dans ce cas la ligne "Selection.AddComment " plante du a la présence de
commentaire


"Daniel" a écrit dans le message de news:
%
Bonjour.
Sur l'évènement double clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim Commentaire As String
Commentaire = InputBox("Entre le commentaire")
Selection.AddComment
Selection.Comment.Text Text:=Commentaire
Selection.Offset(0, 1).Select
End Sub

Cordialement.
Daniel
"Mario Limoges" a écrit dans le message de
news: ZYilg.3538$
Bonjour à tous,

Je cherches un moyen efficace (en vba) d'apposer un commentaire sur un
cellule en modifiant le texte intégré par défaut par excel

Merci à l'avance







Avatar
Daniel
Comme ceci ?

Sub test()
Dim Commentaire As String
If Selection.Comment Is Nothing Then
Commentaire = InputBox("Entre le commentaire")
Selection.AddComment
Selection.Comment.Text Text:=Commentaire
End If
End Sub

Daniel
"Mario Limoges" a écrit dans le message de
news: bfxlg.5320$
Merci Daniel pour l'intérêt porté.

Effectivement ca fonctione bien. Le défis parcontre est de pouvoir
déterminer à l'avance
si la cellule visée contient déjà un commentaire.
Dans ce cas la ligne "Selection.AddComment " plante du a la présence de
commentaire


"Daniel" a écrit dans le message de news:
%
Bonjour.
Sur l'évènement double clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim Commentaire As String
Commentaire = InputBox("Entre le commentaire")
Selection.AddComment
Selection.Comment.Text Text:=Commentaire
Selection.Offset(0, 1).Select
End Sub

Cordialement.
Daniel
"Mario Limoges" a écrit dans le message de
news: ZYilg.3538$
Bonjour à tous,

Je cherches un moyen efficace (en vba) d'apposer un commentaire sur un
cellule en modifiant le texte intégré par défaut par excel

Merci à l'avance











Avatar
Mario Limoges
Salut, a cette dernière interrogation, j'ai trouver la solution sur ce
newsgroup.
On Error Resume Next
C = Range("A3").Comment.Text
If Err = 0 Then
MsgBox "la cellule a un commentaire."
Else
Err = 0
MsgBox "la cellule n'a pas de commentaire."


End If

la solution proposé par michdenis fonctionne très bien

Mario

"Mario Limoges" a écrit dans le message de
news: bfxlg.5320$
Merci Daniel pour l'intérêt porté.

Effectivement ca fonctione bien. Le défis parcontre est de pouvoir
déterminer à l'avance
si la cellule visée contient déjà un commentaire.
Dans ce cas la ligne "Selection.AddComment " plante du a la présence de
commentaire


"Daniel" a écrit dans le message de news:
%
Bonjour.
Sur l'évènement double clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim Commentaire As String
Commentaire = InputBox("Entre le commentaire")
Selection.AddComment
Selection.Comment.Text Text:=Commentaire
Selection.Offset(0, 1).Select
End Sub

Cordialement.
Daniel
"Mario Limoges" a écrit dans le message de
news: ZYilg.3538$
Bonjour à tous,

Je cherches un moyen efficace (en vba) d'apposer un commentaire sur un
cellule en modifiant le texte intégré par défaut par excel

Merci à l'avance