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

anthoYS

XLDnaute Barbatruc
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 :

Code:
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
 

Pièces jointes

  • comDate.xls
    27.5 KB · Affichages: 87

anthoYS

XLDnaute Barbatruc
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 :

Code:
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 :confused: ...

Mais je n'y arrive pas :eek:

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.
 
Dernière édition:

Discussions similaires

Réponses
5
Affichages
125

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof