Code commentaire permettant d'afficher la date du jour de l'ajout du commentaire<

[anthoYS]

Bonsoir,

Voilà mon code, je souhaite, qu'en plus il rajoute la date du double clic comme dans le fichier joint (commentaire ou la cellule est en fond jaune). Et que la saisi se fasse ensuite au choix...

Merci par avance.

Voici le code, et au dessous le fichier :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    If .Column = 2 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If
        SendKeys "%im"
    End If
End With
End Sub

 

[BOISGONTIER]

Re : Code commentaire permettant d'afficher la date du jour de l'ajout du commentaire

Bonsoir,

http://boisgontierjacques.free.fr/fichiers/Commentaires/CommentaireDateJour.xls

JB

 

[anthoYS]

Re : Code commentaire permettant d'afficher la date du jour de l'ajout du commentaire

Re BOISGONTIER, justement j'y suis allé avant et voilà celui que j'ai trouvé d'intéressant :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Comment Is Nothing 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:=99).Font.Bold = False
      .Characters(Start:=lg, Length:=99).Font.Italic = False
      .Characters(Start:=lg, Length:=99).Font.ColorIndex = 1
    End With
    SendKeys "m"
  Else
    SendKeys "m"
  End If
End Sub

En fait je veux un mix des deux 😕 ...

Mais je n'y arrive pas 😱

En fait voilà ce que je souhaite, après un double clic peut importe ou, il faut que la date apparaisse (ton code) mais en noir, utilisateur doit être effacé, et ensuite il faut que l'on puisse saisir un commentaire directement (mon code, celui posté), et que le "m" dans la cellule double-cliqué disparaisse.
Et aussi à la place coloré la cellule en rouge si possible.

Merci et @+ !

Edit : l'heure peut-être enlevé aussi.

 

[BOISGONTIER]

Re : Code commentaire permettant d'afficher la date du jour de l'ajout du commentaire

Voir PJ

JB

 

[anthoYS]

Re : Code commentaire permettant d'afficher la date du jour de l'ajout du commentaire

Re,

Nickel. Merci à toi. Un vrai génie !

@+