Bonjour à tous,
Avec un double click sur ma feuille j'ouvre un InputBox, que je remplis et
qui me permet à la fin l'insertion d'un commentaire
Tout fonctionne correctement.
Ce que je voudrais et j'ai chercher mais je n'ai pas trouver
c'est d'ajouter un code pour pouvoir modifier la couleur de fond du commentaire
Voici mon code
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 Then
With Target
If .NoteText = "" Then
reponse = InputBox("Indiquez les kilomètres parcourus")
If reponse <> "" Then
.AddComment reponse & " kilomètres parcourus"
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Comic Sans MS"
.Size = 8
.FontStyle = "gras"
.ColorIndex = 10
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
Cancel = True
End Sub
En vous remerciant d'avance.
Avec un double click sur ma feuille j'ouvre un InputBox, que je remplis et
qui me permet à la fin l'insertion d'un commentaire
Tout fonctionne correctement.
Ce que je voudrais et j'ai chercher mais je n'ai pas trouver
c'est d'ajouter un code pour pouvoir modifier la couleur de fond du commentaire
Voici mon code
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 Then
With Target
If .NoteText = "" Then
reponse = InputBox("Indiquez les kilomètres parcourus")
If reponse <> "" Then
.AddComment reponse & " kilomètres parcourus"
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Comic Sans MS"
.Size = 8
.FontStyle = "gras"
.ColorIndex = 10
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End If
Else
.Comment.Delete
End If
End With
End If
Cancel = True
End Sub
En vous remerciant d'avance.