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
 

Fichiers joints

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:

anthoYS

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

Re,

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

@+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas